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ABSTRACT 



The goal of the present work was to upgrade the data 
acquisition system (DAS) in the high-speed building of the 
Turbopropulsion Laboratory (TPL) and to develop a high-speed 
acquisition capability for pressure measurements for both the 
TPL and the new Gas Dynamics Laboratory (GDL) . Based on the 
use of the Hewlett Packard HP9000 Series 300 Computer as the 
system controller, a 96-channel high-speed pressure DAS was 
developed using Scanivalve ZOC-14 modules and a CALSYS2000 
calibrator. The system allowed acc[uisition times for current 
wind-tunnel experiments to be revised from four minutes to 
eleven seconds. Also, new software was written to acquire 
data from existing rotary pnexomatic Scanivalves and HP-IB 
compatible instinimentation so that all other existing 
acquisition capabilities were maintained in both laboratories. 
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I. INTRODUCTION 



The Turbopropulsion Laboratory (TPL) consists of two large 
buildings, each with a central data acquisition system (DAS) 
serving multiple rotating and cascade test rigs. One building 
is for low-speed and one is for high-speed flow experiments. 
The Gas Dynamics Laboratory (GDL) consists of a single large 
building, closely adjacent to the other two, for which 
components for a central data acquisition system had been 
purchased, but not installed, at the inception of the present 
work. The GDL houses three blow-down wind tunnel facilities 
and a shock tiibe. 

In planning the DAS for the GDL, commonality of the 
controller with the systems in the TPL was desirable in order 
to eliminate the need for students to learn different 
machines, to simplify the support task, and to interchange 
parts in the event of a failure. Since the TPL low-speed 
building was recently upgraded to use a Hewlett-Packard HP9000 
Series 300 computer, two additional similar computers were 
purchased, one for the DAS new DAS and one to upgrade the DAS 
in the TPL high-speed laboratory. Thus the task in the 
present work was two-fold. First, software was required to be 
generated on the HP9000 which would enable all established DAS 
functions and experiments in the high-speed laboratory at the 
TPL to be maintained. Second, a high-speed scanning data 
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system was required to acquire pressure measurements in the 
short (minutes) duration blow-down wind tunnel tests in the 
GDL. Future upgrading in all laboratories would clearly 
depend on the experience gained in developing the high speed 
scanning system. 

The pre-existing DAS's at the TPL incorporated Hewlett 
Packard HP-IB compatible scanners, digital voltmeters, system 
voltmeters, frequency counters and a locally developed HG-78K 
controller for pneumatic Scanivalves. Prior to the HP9000 
acquisition, in earlier updates, the HP983 0, HP9845 and HPIOOO 
computers had been used as system controllers. Because of 
almost unlimited run-times of the rigs at the TPL, and the 
need largely to record many channels of "steady-state” 
measurements, the data-recording times were not a critical 
issue. [For "real-time" pressure measurements, a 16-channel 
100 Khz capability was provided using a (non HP-IB) DMA input 
to the HPIOOO from a now-obsolete HP5610A A/D converter] . 

Data acquisition was accomplished in the "steady-state" 
system, by computers executing individual data measurement 
instructions under program control. The maximum data 
collection rate was determined by the speed that the computers 
could execute individual instructions within the program 
between consecutive data measurement steps. Pressure 
measurements were made using the Scanivalve rotary pneumatic 
pressure sensing unit operated by the NPS HG-78K Controller. 
The Scanivalve unit sequentially stepped through its block of 
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ports collecting single pressure data once every 1.5 seconds. 
The HG-78K stepped the Scanivalve to the specified measurement 
port on commands executed by the computer. In summary, the 
pressure data acquisition rate was limited by the speed of the 
peripheral devices and by the computer's speed in executing 
program instructions. 

The first task in the present work, to regenerate the 
software for the TPL "steady-state" DAS in HP BASIC 5.13 on 
the HP9000, served to become feuniliar with the computer and 
its programming, but no detailed report is included herein. 
The main task was to develop a high-speed scanning system for 
GDL, and this is documented in detail. 

The hardware for the new system included the HP9000 Desk 
Top Computer System, HP6944A Multiprogrammer, Scanivalve ZOC- 
14 Electronic Scanning Pressure Module and CALSYS2000 
Calibrator. The HP9000 serves as the computer-controller 
using the BASIC programming language. Data and program 
storage for the HP9000 is handled by a HP9153C Disc Drive 
incorporating a 40 mega-byte hard drive and 1.44 mega-byte 
3.25" floppy drive. (The HP9153C replaced the older HP7906 
Disc Drive and HP7970E Tape Drive of the HPIOOO system) . 

The HP6944A combines several data acquisition devices (I/O 
Cards) into one unit. The significant feature of the HP6944A 
is its ability to perform specific data acquisition functions, 
and to control the data measurement steps without intervention 
from the host computer (HP9000) . The HP6944A removes the 
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individual data measurement instructions of the program from 
the acquisition process, resulting in data rates which are 
limited only by the speed of the individual I/O card and the 
non-Hewlett Packard device. 

In comparison with the TPL "steady-state” system, the ZOC- 
14 module replaces the low speed rotary Scanivalve and instead 
provides high speed electronic scanning of the pressure ports. 
The CALSYS2000 provides ZOC control and supplies calibration 
pressures to it, making the ZOC and CALSYS2000 a "packaged" 
pressure measurement system. 

The software which was generated to integrate the HP9000, 
HP6944A and Scanivalve ZOC-14/CALSYS2000 system was designated 
as program SCAN_ZOC_05. The complete package of hardware and 
software is referred to hereafter as the ZOC-14 Data 
Acquisition System, or ZOC-14 DAS. 

In the present document. Chapter Two describes and 
discusses the development of the ZOC-14 DAS. The hardware, 
individual component operation, integration of the components 
into a complete system, and the application programs to 
operate the DAS are discussed in detail. It is hoped that 
this chapter will serve as a manual for the system, and as a 
guide to those responsible for future extensions. 

Chapter Three discusses the upgraded capabilities of TPL 
and GDL DAS's, potential extensions and outstanding issues. 
(The ZOC-14 DAS is fully operational, but requires resolution 
of these issues to optimize the system's performance) . 
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Finally, conclusions are drawn and a particular reconunendation 
is made in chapter Four. 

Additional details are given in the Appendices. Appendix 
A contains the ZOC-14 DAS application program flow chart, the 
application program SCAN_ZOC_05, and associated utility 
programs. The utility programs are used to read and display 
the results of the data compiled by the SCAN_ZOC_05 program. 

Appendix B contains four earlier versions in arriving at 
the SCAN_ZOC_05 program. The program evolved in steps, as 
knowledge was gained on the hardware operation and 
integration, and software programming. Each program is 
annotated with pertinent information to describe the program's 
functional routines, and are reported as and aid to future 
programming. 

Appendix C contains a brief guide to managing data files 
provided by the ZOC-14 DAS collection process. A program is 
listed, and instructions provided, to view and delete selected 
data files, from the hard drive. A sample print-out of the 
hard drive contents is provided, showing the data file listing 
and unique structure for the ZOC-14 DAS data files. 

Appendix D provides a listing of all major programs . • 
developed for use on the HP9000 for the TPL. A compilation of 
all programs, listed in groups of "directories" contained on 
the HP9153C hard drive, is provided. The major program 
listings are divided into the categories of Turbocharger 
Performance, AE4431 Turbomachinery Design, and several sample 
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routines to operate devices, perform calculations, 
manipulate files. 



and 
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II. ZOC-14 DATA ACQUISITION SYSTEM 



A. General Overview 
1. Hardware 

The ZOC-14 Data Acquisition System (DAS) hardware 
includes the Scanivalve ZOC-14 Electronic Pressure Scanning 
Module (Figure 1) , the Scanivalve CALSYS2000 Calibration 
System (Figure 2) , the Hewlett Packard HP6944A Multiprogrammer 
(Figure 3 ) , and the Hewlett Packard HP9000 Desk Top Computer 
System and peripherals (Figure 4) . 




Figure 1 ZOC-14 Electronic Pressure Scanning Module 
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Figure 2 CALSYS2000 Calibration System 




Figure 3 HP6944A Multiprogrammer 
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Figxire 4 HP9000 Computer System 
2. Software and Literatxire 

The HP9000 is provided with BASIC 5.13 software. On- 
line compilation occurs when a program is executed by the RUN 
command. This user-friendly feature allows expeditious 
changes to be made in a program without the separate time 
consuming re-compilation process required by other high level 
programming languages. The result is the ability to RUN a 
program, change the program, and RUN the program again with 
minimal effort and time, making BASIC an ideal tool for an 
engineer. 
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The BASIC software system and documentation includes 
the necessary firmware provided on seven 3.25*' floppy disks 
and twelve manuals describing the loading, utilization, and 
maintenance of BASIC (Figure 5) [Ref . 1 through Ref. 12]. 

_ I 




Figure 5 Hewlett Packard BASIC Program and Literature 



The two volume Hewlett Packard Educational Package 
(Figure 5) [Ref. 13 through Ref. 14] is vital to quickly learn 
BASIC and its implementation with the HP9000 and the line of 
Hewlett Packard peripheral devices. This package condenses 
all the pertinent information contained in the BASIC program 
manuals. The novice programmer will find that the Educational 
Package provides the necessary fundamentals in how to use 
BASIC. The advanced programmer will be regularly referencing 
the BASIC program manuals for his programming requirements. 
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The HP14753A CAT Program Package (Figure 5) [Ref. 15] 
comprises the firmware and documentation required to set-up 
and operate the HP6944A Multiprogrammer. Details of this 
package will be discussed later in this chapter. 

3. TPL ZOC-14 DAS System 

The TPL ZOC-14 DAS System is an integration of all the 
aforementioned hardware, firmware, and newly developed 
software into an application package. The capability of the 
system is the ability to collect pressure data on multiple 
channels at high sampling rates, reduce the raw data, and 
store the reduced data using a user friendly, menu-driven 
operating program on the HP9000 computer. A schematic of the 
ZOC-14 DAS System is illustrated in Figure 6. The HP9000 
computer is the central controlling device for the system. 
Software on the HP9000 controls data collection from the 
CALSYS2000 and HP6944A, data reduction, and data storage to 
the computer's hard drive and floppy drive. The HP6944A 
interfaces with the ZOC-14 modules providing electronic port 
selection, receiving analog voltages and converting to digital 
data. The CALSYS2000 is controlled by the HP9000, provides 
calibration pressure to the ZOCs, pneumatically sets the ZOC's 
operating modes, and provides digital data conversion of 
calibration pressure to the HP9000. The ZOC-14 module 
converts pneumatic pressures to analog voltage signals which 
are collected in the HP6944A. 
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Figure 6 ZOC-14 Data Acquisition System 
B. Hardware Description 

1. ZOC-14 Electronic Pressure Scanning Module 
a. Principle of Operation 

The ZOC-14 is a 32 port electronically switched 
pressure sensing device. Internally, pressures are converted 
through semi-conductor strain gages to an analog voltage 
output signal for each selected port (Figure 7) . The 
electronic switching feature allows the individual strain 
gages to be selected at random, and the output voltage signal 
to be read. 
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Each ZOC contains a series of valves that are 
pneumatically switched to set an operating mode. Shown in 
Figure 8 are the ports PI through Px which are connected by 
pneumatic pressure tubing to the apparatus or probe where 
pressure is to be measured, such as the model in a wind 
tunnel. The Calibration Manifold and Sensor Reference 
Pressure Manifold are connected to the CALSYS2000 to receive 
a reference calibration pressure to be measured by the ZOC for 
calibration purposes. CAL Control (CTLl) and Px Control 
(CTL2) are pneumatic control lines that position the valves to 
set the required operating mode in the ZOC. CAL and Px 
control pressures are provided by the CALSYS2000. 
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Figure 8 ZOC-14 Valve Body Schematic 



The ZOC operates on the principle "ZERO OPERATE 
AND CALIBRATE”; hence the name "ZOC". This principle involves 
a two phase sequence. The first phase sets the ZOC into an 
"OPERATE” mode and experimental pressure data at pressure 
ports PI through Px are converted and recorded. The second 
phase sets the ZOC into the "CALIBRATE" mode. The CALS YS2 000 
provides a calibration pressure through the Calibration 
Manifold and Sensor Reference Pressure Manifold to each strain 
gage. Calibration pressure data are then collected from the 
ZOC for each port by the HP6944A. The HP9000 collects the 
pressure data from the HP6944A and digital converted 
calibration pressure data from the CALSYS2000. These two sets 
of data are plotted against each other to get a calibration 
curve for each ZOC strain gage. 

Figure 9 illustrates the ZOC's four modes of 
operation. In the OPERATE mode, PI .pressure is routed to the 
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Figure 9 ZOC-14 Pneumatic Switching Modes 

strain gage, and the Calibration Manifold is isolated. In the 
CALIBRATE mode, calibration pressure is routed to the strain 
gage, and the PI pressure is isolated. The PURGE and LEAK 
TEST modes are used for clearing pressure lines and for 
diagnostic checks, respectively. 

The Multiplexer and Amplifier section (Figure 8) 
facilitates the ZOC's high speed scanning capability. The 
multiplexer is driven by a five bit address input signal (AO 
through A4) from the HP6944A, selecting a specified port from 
1 to 32 in binary code. The ZOC's electronic module is 
illustrated schematically in Figure 10. The analog output 
signal processing is accomplished within the electronic 
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Figure 10 ZOC-14 Electronics Schematic 
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section of the ZOC. 



Reference 16 provides all pertinent 
specifications, descriptions of the design and operation, and 
is the source document for the above technical information on 
the ZOC-14 Module. 

b« ZOC-14 Enclosure 

The ZOC-14 Enclosure was designed and built at NFS 
to provide a mobile and versatile module which was convenient 
for electronic and pneumatic connections, and provided 
protection in the laboratory environment. Components in the 
enclosure include one ZOC-14 Module (Figure 1) , a 115 VAC 
power supply, a BNC connection for the output signal. Cannon 
plugs for the ZOC address input, and a pneumatic connection 
plate for measurement, control, and calibration pressure lines 
(Figure 11) . 

Each Px port on the ZOC-14 module has a 
corresponding port connection on the pneumatic connection 
plate. The connection plate port numbers 1 through 32 
correspond to the ZOC's ports as selected by the binary 
address code. The Px Control, CAL Control, CAL, and REF ports 
on each valve block (Figure 7) are each connected to a common 
line as illustrated in Figure 12. The Px Control line is 
routed to port number 33, CAL Control to port number 34, CAL 
to port number 35, and REF to port number 36. Ports 37 
through 48 are not used. 
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The enclosure's electrical wiring is illustrated 
schematically in Figure 13. The two-five pin Cannon plugs are 
wired in parallel to jumper ZOC address line connection points 
between adjacent enclosures. This feature allows for one 
address line from the HP6944A to be connected to the first 
enclosure Cannon plug. The second enclosure receives its ZOC 
address signal from the second Cannon plug on the first 
enclosure by a jumper line. The third and following 
enclosures receive their ZOC address signals in the same 
sequence of connections. 

A significant capability of the ZOC address 
control feature, in connection with the HP6944A, is the 
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Figure 12 ZOC-14 Enclosure Pneumatic Line Schematic 



19 







Figure 13 ZOC-14 Enclosure Electronics Schematic 
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ability to simultaneously collect pressure data from 
corresponding ports on a multiple ZOC configuration. This 
capability could play a significant role in determining the 
pressure behavior at two or more different points at the same 
instance in time. The nximber of instantaneous data points is 
determined by the number of ZOCs connected into the ZOC-14 DAS 
System. 

2. CALSYS2000 Calibration Module 
a. Description 

The CALSYS2000 interfaces the ZOC module with the 
HP9000 computer by setting the ZOC mode selection as commanded 
by the HP9000, providing calibration information- to the 
HP9000, and sending a reference calibration pressure to the 
ZOC for calibration purposes. Figure 14^ shows a front view 
of the CALS YS2 000 module. 

The CALS YS2 000 is comprised of a Calibration 
Module (CALMOD 2000) and a Power and Solenoid Control (PSC 
2000) module. Figure 15 illustrates the external pneumatic 
and electrical line connections between the two modules, the 
nitrogen supply source and ZOC pneumatic line connections as 
seen in a rear view of the CALSYS2000 as it is installed at 
the TPL. 



^ Figure 14 is found in Ref. 17, page 10, as Figure 1. 
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b. Calibrator Module fCALMOD 2000) 

The CALMOD 2000 provides the electronic interface 
with the HP9000 through the serial RS-232C data link with a 
built-in processor. The processor responds to various 
commands from the HP9000 and issues control signals to actuate 
an array of solenoids within the CALMOD and PSC. The 
selective setting of the solenoids routes reduced nitrogen gas 
pressure to set the ZOC modes, and provide a regulated 
calibration reference pressure for ZOC transducer calibration. 
An internal Pressure Standard module samples the calibration 
pressure and provides a proportional analog voltage value to 
the processor. The processor's internal A/D and mathematical 



22 





PSC 2068 CAU10D 2800 




Figure 15 CALSYS2000 External Line Connections 

processors return a digital measure of the pressure in either 
psia or inches of mercury. The CALMOD is currently set for 
inches of mercury. The processor provides this digital 
pressure value at the front window on the CALMOD (item 5, 
Figure 14) , and also returns the value to the HP9000 following 
a "read pressure" command. 

The CALMOD has three manually adjustable pressure 
regulators (items 6,7,8 in Figure 14) and associated pressure 
display buttons (items 2,3,4 in Figure 14). These regulators 
provide three different reference calibration pressures that 
the ZOC uses for calibration. During the calibration mode, 
each one of the three calibration pressures are sequentially 
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sent to the ZOC and the Pressure Standard. To calibrate the 
ZOC for positive pressures, the calibration pressure is 
provided through the Calibration Manifold to the strain gage 
transducers. To calibrate the ZOC for negative pressures, the 
calibration pressure is provided through the Sensor Reference 
Pressure Manifold to the backside of the strain gage 
transducer. Pressure data from the CALSYS2000 and ZOC are 
collected by the HP9000 and reduced to obtain calibration 
curves for each ZOC transducer. 

Figure 16^ shows the rear panel of the CALMOD 2000 
with all the installed connection ports. Figure 15 
illustrates the ports currently used at TPL. The CALMOD 
receives a common low-pressure supply of nitrogen gas to the 
Solenoid Supply and Regulator Supply connections. Regulated 
calibration pressure is supplied to the ZOC Calibration 
Manifold through the CAL(+) connection, and the Sensor 
Reference Pressure Manifold through the REF(-) connection. 

Figure 17^ shows the pneumatic lines between the 
CALSYS2000 and ZOC units. The TPL currently has two 15 psid 
and one 50 psid ZOCs. These ranges require a nominal 90 psi 
Regulated (Instrument) Air Supply to properly operate'*. The 
solenoid supply is 90 psi for both the CALMOD and PSC. 

^ Figure 16 is found in Ref. 17, page 12, as Figure 2. 

^ Figure 17 is found in Ref. 17, page 21, as Figure 5. 

'* Refer to Ref. 17, dwg 162 02, sht 1 of 9, in back of 
ref. 17. 
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c» Power and Solenoid Control Module fPSC 2000) 

The PSC provides the CALSYS2000 electrical power 
and pneumatically controls the ZOCs. Figure 18 shows the rear 
panel of the PSC with all external connections. Electrical 
power is supplied to the CALMOD through an electrical jumper 
between the Power Out (item 3 in Figure 18) and Power In 
terminals shown in Figure 15. The PSC contains the solenoids 
which route control air, CAL CTL and Px CTL (item 5 in 
Figure 18) to the ZOC for mode selection. These two solenoids 
are controlled by the CALMOD through an electrical cable 
connecting the Solenoid Control connections (item 3 in 
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Figure 17 CALSYS2000-ZOC Pneumatic Hook-up 



Figure 16 and item 4 in Figure 18) . ZOC control gas to the 
solenoids is supplied at 90 psia from a high pressure nitrogen 
cylinder through the Supply port (item 7 in Figure 18) . 
d. CAT/^vs7000 Operation 

The CALSYS2000 communicates with the HP9000 
Computer through the RS-232C serial data link using ASCII 
character format commands. The commands used for the ZOC-14 
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Figure 18 PSC 2000 Rear Panel 



DAS are of two types: 

♦ Commands from the HP9000 to set ZOC and CALSYS2000 modes 
by the actuation of control solenoids. 

♦ Commands to provide pressure data to the HP9000, read from 
the Pressure Standard. 

The command format for communications requires the HP9000 
command statement to have the following ASCII Character code 
format: 

aCC(CR) 
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The "a” is the CALMOD address character which is currently "1” 
for the only CALMOD installed in the CALSYS2000 at the TPL. 
A second CALMOD would have the address character of ''2”. The 
••CC” part is the applicable command code such as "PH” which is 
discussed later. The "(CR)” is for a ASCII carriage return 
character which is "IS” in decimal format. 

The commands used to set ZOC and CALSYS2000 modes 
are summarized below: 

OPERATE mode - This mode allows pressure to be measured by 
the ZOC by setting the valves in the ZOC to route Px air 
directly to the strain gage. Calibration functions are at 
idle. The OPERATE mode is the CALSYS2000 condition when it is 
first initialized or powered-up. 

♦ alC Initialize Calibrator to set the CALSYS2000 to 

its power-up condition 

CALIBRATION mode - This mode is set at the ZOC. 
Calibration reference pressure is sent to the ZOC, and all gas 
is routed to the Pressure Standard for display on the CALMOD 
window, and made available to the HP9000. 

♦ aPH Route high pressure gas from Regulator #1 to 

the ZOCs through the Calibration Manifold 

♦ aPM Route medium pressure gas from Regulator #2 air 

to the ZOCs through the Calibration Manifold 

♦ aPL Route low pressure gas frfam Regulator #3 to the 

ZOCs through the Calibration Manifold 
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♦ aZO 



Gas in the Calibration and Reference Pressure 
Manifolds is equalized to atmopheric 
pressure in these manifolds 

♦ aNL Route low pressure gas from Regulator #3 to the 

ZOCs through the Reference Pressure Manifold 

♦ aNM Route medium pressure gas from Regulator #2 to the 

ZOCs through the Reference Pressure Manifold 

♦ aNH Route high pressure gas from Regulator #1 to the 

ZOCs through the Reference Pressure Manifold 

Read Pressure - The CALMOD is asked for the current 

pressure value being sampled by the Pressure Standard. This 

command is used only by the ZOC-14 DAS program during the 

Calibration Mode. When the CALSYS2000 is in its "initialized 

condition"/ the Pressure Standard reads atmospheric pressure. 
% 

♦ aRP Reads the pressure sampled by the Pressure 

Standard and returns the value in inches of 

mercury in ASCII character format: 

"+/“!• 23456E+78 at a" 

Reference 17, Chapter 4, discusses the details and 
available command codes use by the CALSYS2000. The above 
codes are only used in the ZOC-14 DAS program with the HP9000. 
The CALSYS2000 is designed to operate from any PC using a 
standard modem control program. 

The HP9000 and BASIC programming language required 
a modification of the CALSYS2000's command format factory 
settings. The Line-feed (LF) ASCII character in the command 
line corrupted the command message to the CALSYS2000 on any 
subsequent command following the initial HP9000 command. 
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Deletion of the LF from the HP9000 command resulted in 



uninterrupted command of the CALS YS2 000. 

[In • its factory configuration, the CALMOD 
"handshakes” with a host computer using a "prompt record" to 
respond to a host computer command. (See Reference 17) . 
Following a command issued to the CALMOD, the HP9000 would 
receive an interrupt error and halt the program. The BASIC 
line commands to handle the CALMOD prompt record could not be 
determined. Subsequently, the factory-set prompt record 
"(CR) (LF) (;)" was deleted to allow the HP9000 to continue 
without an interrupt error. Deletion of the prompt record 
" (CR) (LF) ( ; ) " was accomplished by setting the "Null" prompt 
* record. The Null prompt record was set into the CALMOD 
processor using the command " SMON " followed by " BP 1 " . 
The commands were communicated using a 386 PC with a modem- 
control program that performed computer to computer 
communication. The first command set the Null prompt record, 
the second command "burned" the Null prompt record into the 
CALMOD 's PROM.] 

e. CAT.SYS2000 Gas Supplv System 

The CALSYS2000 requires instrument quality air 
meeting ISA-S7.3 [Ref. 17, page 18]. The use of commercial 
bottled nitrogen gas more than satisfied this requirement. 
The supply system for the CALSYS2000 at TPL is illustrated in 
Figure 19. Nitrogen gas is reduced through a standard 
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regulator set at 90 psi, providing Solenoid Control and 
Regulator Air. 



Regulator Sat 
CLou < High Press Gages) 




Figure 19 CALSYS2000 Nitrogen Supply 

A cut-out valve (Figure 15) is installed between 
the PSC and CALMOD to minimize nitrogen gas consiimption. The 
valve is set closed (handle down) when the CALSYS2000 is used 
in the OPERATE mode. The valve is opened for the CALIBRATE 
mode. Higher gas consumption occurs due to the design of the 
regulators in the CALMOD, which bleeds off gas to maintain a 
constant pressure setting. 
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3. Hewlett Packard Multiprogrammer (HP6944A) 



a. General Description 

The HP6944A (Figure 3) is a self-contained module 
with removable I/O cards which control various device 
operations or functions and interface with the HP9000. I/O 
cards are easily installed or removed by sliding the card into 
or out of an I/O slot in the enclosure. The HP9000 
communicates with the I/O card through the HP6944A internal 
processor and Backplane Edge Connector which the installed I/O 
card plugs into. Electrical power supplies for the I/O cards 
are contained in the HP6944A enclosure. The HP6944A can 
support up to 16 I/O cards, depending on the cards' electrical 
power requirements. Figure 20 shows the HP6944A with the 
eight I/O cards and associated "edge plane" connecting cables 
used for the ZOC-14 DAS. 

Reference 18 provides a detailed description of 
the HP6944A and a brief description of all the I/O cards 
available for the HP6944A. The I/O cards used in the ZOC-14 
DAS are described in the following paragraphs. 

b. I/O Cards 

500 Khz A/D Card rHP69759AV 

The A/D card provides analog to digital signal 
conversion from the ZOC-14 module. One A/D card is required 
for each ZOC. The card has a capability of performing A/D 
conversions at a rate of up to 500 Khz. The card is factory 
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Figure 20 HP6944A Rear Panel and I/O Cards 



set to handle input analog voltages between +/- 10 volts 
[Ref. 19]. The A/D process provides a 12 bit resolution 
resulting in a 5 mV digital output voltage resolution. 

The HP1417A Chaining Cable (Figure 21^) interfaces 
the A/D card with the Memory Card, Pacer Card and ZOC. The 
digital output voltage value from the A/D card is read to the 
Memory Card through the HP1417A cable. The Pacer Card's 
trigger signal and ZOC voltage signal are received by the A/D 
card through Chaining Cable input leads. 

^ Figure 21 is in Ref. 19 as figure 2-2. 
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Figure 21 A/D-Memory Chaining Cable 

(2) Memory Card rHP69791A^ 

The Memory Card is a digital data storage 
device used here to store ZOC voltage values from the A/D 
card. Data are stored in 16-bit words and the storage 
capacity is 65,536 words of RAM [Ref 20]. Data words can be 
written into the RAM at rates of up to 800 Khz. The data are 
extracted from the RAM into the HP9000 RAM at rates of up to 
30 KHz. The difference in data rates does not limit the ZOC- 
14 DAS process. The DAS program is designed to collect and 
store all raw pressure data on the Memory Card for each 
acquisition cycle before any data are transferred to the 
HP9000. 
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(3^ Counter/Totalizer Card (HP69775A) 



The Counter Card is use in conjunction with 
the Timer/Pacer Card to count the number of events that occur 
during a specified data collection cycle. A trigger signal 
from the Timer/Pacer Card provides the signal pulse to step 
the Counter Card's integer "count-up" function. The Counter 
Card has two counting modes that count at rates of up to 1 Mhz 
[Ref. 15 and Ref. 21]. The mode used in the ZOC-14 DAS 
process counts from -32768 to 0. This capability allows 1023 
samples per port of data, or 1023x32 events for a maximum of 
32736 total data points per run. 

The Counter Card provides the count value at 
the card's Edge Connector (Figure 22®) as an External Count 
Output. The output is a 16-bit number, which is the count 
value as the card is counting. Five of the sixteen bits (00 
through 04) are used to drive the ZOC address value (bits AO- 
A4) through the Auxiliary I/O Logic Interface Device 
(Figure 6) . 

(i) Timer/Pacer Card rHP69736A^ 

The Pacer Card is a square wave pulse 
generator with a programmable pulse width feature. The pulse 
width is programmable down to one micro second duration or a 



® Figure 22 is figure 3-5 in Ref. 21. 
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Figure 22 HP69775A Edge Connector 

one MHz square wave^. The Pacer Card provides the trigger for 
the A/D Card and timing step trigger for the Counter Card. 
c. Multiproorammer Configuration 
fl) ZOC-14 Integration 

The ZOC address format and the Counter Card's 
External Counter Output are the common link that interface the 
two devices. The Counter Card's count-up feature is used to 
control the ZOC port address. Starting at "-32", for which 
the binary equivalent is "00000" at the card edge, the card 
counts up to zero. Since 00000 is the binary number which is 
required to set the ZOC address to port number "1", the 



^ Refer to Ref. 15 and Ref. 22 for details on the 
HP69736A. 
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counting process steps the ZOC from port 1 to port 32. The 
count -up process realizes the following sequence: 



decimal count 


binary count 


ZOC port 


-32 


00000 


01 


-31 


00001 


02 


-29 


00010 

• • « 


03 


-02 


11110 


31 


-01 


mil 


32 



Initiating the count-up from "-64” results in two scanning 
passes through the 32 port ZOC-14 since only the last five 
bits are identified in the ZOC address. Selection of the 
count-up value determines the number of scans through all the 
ZOC's ports. 

The Counter Card's external output is set to 
0.0-0. 5 volt for "logic low" and to 2. 0-5.0 volt for "logic 
high" [Ref. 21, page 1-2]. The ZOC address bits (A0-A4 in 
Figure 10) require an open collector Transistor-Transistor- 
Logic (TTL) driver to provide a ground "low" and an open 
"high" signal. The Auxiliary I/O Logic Interface Device 
(Figure 23) was designed to interface the HP69775A with the 
ZOC. Figure 24 is the electrical schematic of the device. 
The TTL 7404 is powered by a 5 volt regulator [Ref. 23]. The 
regulator receives 15 VDC power from the Counter Card's 
external edge connector. 
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Figure 24 



Auxiliary I/O Logic Interface Device Schematic 
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(2) I/O Card Slot Conficmration 



The current configuration of the I/O cards and 
HP6944A provides the capability to collect pressure data from 
up to three ZOC-14 modules. Figure 25 illustrates the I/O 
card configuration and wiring to support the full ZOC-14 DAS. 




Figure 26 shows the ZOC-14 DAS (not including the CALSYS2000) 
with one ZOC-14 module and all electrical lines connected. 

The HP6944A has a power limitation determined 
by the built-in power supplies. Table I illustrates the 
HP6944A power supply availability and the I/O card power 
requirements. The HP6944A provides one 5 volt, one 12 volt 
and three 18 volt power supplies. The maximum amperage 



39 




Figure 26 ZOC-14 Data Acquisition System (less CALSYS2000) 

ratings are shown in Table I. The power required by the I/O 
cards are shown in amperes. The upper value in the table is 
the rating per card. For the HP69791A and HP69759A cards, the 
second value is the total rating for three cards of each type 
(which are required for three ZOC modules) . The total 
amperage required for the three HP69759A cards exceeded the 
capacity of a single 18 volt power supply. Therefore, the 
first HP69759A card receives its power from the first 18 volt 
power supply. The second and third HP69759A cards receive 
their power from the second 18 volt power supply, from which 
they draw a total of 0.8 amperes. The HP69759A cards were set 
by the factory to draw power from the first 18 volt power 
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Table I HP6944A Power Supply Allocation 



Device 


Power 


Supplies 






HP6944A 


+5V 


+ 12V 


-12V 


+18V 


-18V 




16. OA 


2.0A 


2.0A 


0.85A 


0.4A 




(1) 


(1) 


(1) 


(3) 


(3) 


Cards 


Power Required 


HP69791A 


3.6A 
10. 8A 










HP69759A 


0.7A 






(1) 0.4A 


(1) 0.075A 


HP69759A 


0.7A 






(2) 0.4A 


(2) 0.075A 


HP69759A 


0.7A 






(2) 0.4A 


(2) 0.075A 


HP69736A 


0.75A 










HP69775A 


0.75A 


0.12A 


0.15A 


(1) 0.12A 


(1) 0.150A 


TOTAL 


14 . 4A 


0.12A 


0.15A 


(1) 0.52A 


(1) 0.225A 










(2)0. 80A 


(2)0.150A 



supply. Access to the second 18 volt power supply required 
alterations to be made to the Power Supply Jumpers for the 
second and third HP69759A cards [Ref. 19, page 3-1]. 
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C. ZOC-14 DAS Software Description 

1 . General Overview 

Hewlett Packard's BASIC 5.13 program language is 
utilized by the HP9000. Code is written in this language to 
communicate with the various data acquisition devices, process 
data and store the data to disk, and to output results on a 
printer or plotter. The HP6944A, a central component of the 
ZOC-14 DAS, is a relatively complex device which can perform 
numerous functions depending on how it is configured. The use 
of the HP6944A here required the generation of a unique 
software package in BASIC that integrated the HP6944A internal 
processor with the configuration of I/O cards selected here. 
The HP14753A Computer Aided Test (CAT) Programming Package 
provided the means to generate the software for that 
interface. 

2. Data Acquisition Program 

a. HP14753A CAT Program Package 

The HP14753A CAT Programming Package 
(Figure 27) [Ref. 15] is software (and documentation) required 
to operate the HP6944A and the associated I/O cards. The 
programmer uses the Hewlett Packard provided skeleton CAT 
example program to develop a tailored application program to 
perform specific processes. The ZOC-14 DAS application 
program, was developed using the CAT Programming Package, to 
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Figiire 27 HP14753A CAT Programming Package 



perform 20C data collection, reduction, and storage titled 
”SCAN_ZOC_05” (Appendix A, Figure A17) . 

The CAT programming package provides the 
capability of integrating selected I/O cards into a unique 
function that combines the cards* capabilities into one 
function. Two particular applications used here combined the 
A/D and Memory Cards into a "Buffer" function, and the Pacer 
and Counter Cards into a "Timer" function. 

The Buffer function performs the task of 
collecting analog data at a collection rate controlled by an 
external trigger device, converts the analog data to digital 
format, and temporarily stores the data. The Buffer function 
allows the high speed data collection rate of 500 KHz, which 
is only limited by the A/D conversion rate. Figure 28 is a 
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schematic of the wiring that links the A/D and Memory Cards 
together through the HP1417A Chaining Cable (Figure 21) . 




} 

} 



VOLTAGE 
SIGNAL 
FROM ZOC 



TRIGGER 

SIGNAL 

FROM 

timer 



Figure 28 Buffered A/D Function Schematic 

The Timer function provides a square wave trigger 
pulse of a specified pulse width and a specified number of 
repetitions. The pulse width determines the data collection 
rate. In the present application, the repetition number 
divided by 32, the n umb er of ports on the ZOC-14, determines 
the number of scans the ZOCs undergo. The repetition number 
is therefore always a multiple of 32. Figure 29 is the 
schematic of the wiring that links the Counter and Pacer Cards 
together. The edge connectors and cables which were made to 
implement the wiring shown in Figure 29, can be seen in 
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a/d trigger signal 




Figure 29 Timer Function Schematic 
Figure 23. 

The CAT programming process requires 
identification of the installed I/O cards and their initial 
function settings through a user-specified "Configuration 
File". The file provides the flexibility of writing a general 
application program that works readily with various 
configurations of the HP6944A(s) . Each configuration file is 
unique to each HP6944A hardware configuration®. 



® The Configuration File must accurately reflect the 
HP6944A(s) I/O card configuration or a software error occurs. 
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Print-outs of the ZOC-14 DAS program Configuration 
File are listed in Figure Al^. [Note that the names listed 
in Figure A1 are variables used by the program SCAN_ZOC_05 . ] 
b. DAS Procrram Desicm 

ri^ Program Design Features 

The ZOC-14 DAS Program SCAN_ZOC_05 
incorporated several design features intended to obtain a 
user-friendly data, collection program. The program 



♦ has full control of the ZOCs and CALSYS2000 as interfaced 
with the HP9000 and HP6944A 

♦ utilizes the Zero Operate Calibrate principle for data 
collection from the ZOCs 

♦ uses keyboard function keys to allow selection of various 
operations within the program 

♦ creates and identifies data files automatically based on 
the type of data, date, and run number 

♦ offers data file storage on hard and floppy disk drives. 

( 2 ) Data Files 

Three different data files are used when 
acquiring data from each ZOC-14. Implementation of the Zero, 
Operate and Calibrate procedure required the data acquisition 
process to 



♦ collect and store raw pressure data from the ZOCs 



® Reference 15 provides details on Configuration File 
creation and alterations. 
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♦ collect and store calibration pressure data from the ZOCs 
and corresponding applied pressure standard data from the 
CALMOD 2000 

♦ reduce the raw pressure date using calibration curves and 
store the reduced pressure data. 

The program uses BOAT type files with Integer 
and Real nximber formats^®. The raw data file is in Integer 
(2-byte) format, with each record corresponding to an output 
voltage value. 

The calibration file uses a Real nuinber (8- 
byte) format storing data from a 33 row by 11 column array^^. 
Each row (1-32) corresponds to a ZOC Port. The Zero (0) row 
contains ZOC-specific parameters. Colvimns 4-10 in the Zero 
row contains pressure values measured by the CALMOD Pressure 
Standard for each of the seven calibration settings. Columns 
4-10 (rows 1-32) contain voltages output by the ZOC for each 
of the calibration pressures applied through the CAL and REF 
manifolds. Columns 0-3 (rows 1-32) contain calibration curve 
fit coefficients for a third order polynomial. These 
coefficients are derived using the Least Squares numerical 
curve fit method using the recorded voltages (rows 1-32) 
plotted against the applied (standard) calibration pressures 
(row zero) . Each row in the array corresponds to a record in 
the calibration data file consisting of 8x33 bytes. 



Refer to Ref. 6, chp 7, for details and advantages of 
BOAT format files compared to ASCII files. 

“ Refer to Figure A17, lines 2350 to 2440. 
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The reduced data file uses a Real number (8- 
byte) format, storing data from a n-row by 33 column array. 
Each row corresponds to one scan of a ZOC. The first column 
(0) stores the nth-scan number. Columns 1-32 correspond to 
the output of each ZOC port converted to pressure units 
(inches of mercury). Each array row occupies a record of 8x33 
bytes in the reduced data file. 

Figure 30 provides a sample listing of the 
data files created in acquiring data using three (3) ZOCs in 
one (1) acquisition cycle. 



700, 0.1 
VOLUME LABEL: 


DATA 












FILE NAME PRO 


TYPE 


REC/FILE 


BYTE/REC 


ADDRESS 


DATE 


TIME 


ZW1205161 


BOAT 


97 


2 


592 


16-May-92 


14:54 


2W2205181 


BOAT 


97 


2 


594 


16-May-92 


14:54 


ZVI3205161 


BOAT 


97 


2 


596 


18-May-92 


14:54 


ZC1205161 


BOAT 


33 


86 


596 


16-May-92 


14:55 


ZC220S181 


BOAT 


33 


SS 


611 


16-May-92 


14:55 


ZC3205161 


BOAT 


33 


S8 


624 


16-May-92 


14:55 


ZR1205161 


BOAT 


3 


264 


637 


16-May-92 


14:55 


2R2205161 


BOAT 


3 


264 


642 


16 -May- 92 


14:55 


ZR3203161 


BOAT 


3 


264 


647 


16-May-92 


14:55 



Figure 30 ZOC-14 DAS Data File Listing 



Each data file name uses the format, 

<ZW><ZOC #><DateXRun #> 

”ZW” identifies raw data files. ("ZC" identifies calibration 
data files, and "ZR” identifies reduced data files) . The ZOC 

# is for ZOCs 1-3. The format for the date is YMMDD. The Run 

# has values 1-99. Hence, for example, the file ZR1205161 
holds reduced data for ZOC #1 collected on May 16, 1992 during 
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Run #1. The REC/FILE column shows three records, identifying 
that three scans of data for the 32 ports were collected. The 
BYTE/REC column identifies 264 bytes for each record (scan) , 
corresponding to the 8x33 bytes for the row format addressed 
in the previous paragraph. 

(3) Program Functional Flow Process 

The program SCAN_ZOC_05 follows the functional 
flow process illustrated in Figure A2 through Figure A16 in 
Appendix A. The program relies on extensive use of 
subroutines to maintain program architectural simplicity 
through use of the CALL statement. The option to use one to 
three ZOCs requires only the repetitious use of the different 
svibroutines . 

Function keys are used for program control. 
The main program is segmented into blocks. Each block or set 
of blocks is initiated by a function key (ie. fl through f8) . 
The "GOTO Hold” statement executes a continuous loop sequence 
which is only interrupted by a function key selection, thus 
providing the mechanism for program control. 

The storing of raw pressure data and 
calibration data onto the hard drive allows repeated data 
collection runs. The data reduction routine is function key 
selected and can be performed after each data collection run, 
or at any later time. The program prompts the user for data 
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file name information when data reduction is not selected 
immediately following a data collection run. 
c. DAS Program Use 

fl) HP9000 Operation and Rudimentary Commands 

The HP9000 is the controlling unit for the 
ZOC-14 DAS. Its operation is similar to that of a desk top 
computer system with no complex initialization or "boot-up” 
process. 

The HP9000 has its own built-in boot-up 
routine as an integral part of BASIC [Ref. 4]. The boot-up 
process addresses the "SYSB51. HP-UX" file on the hard drive's 
root directory for loading various function drivers called 
"Binaries". Integration of the HP14753A CAT programming 
package in the present work required modification to the 
SYSB51 file to provide sufficient RAM space to operate the CAT 
programs^^. 

The boot-up process is initiated when power is 
applied to the HP9000. The CRT begins displaying a series of 
screens during the boot-up. With the modification which was 
made to the SYSB51 file, completion of the boot-up process now 
gives the screen display shown in Figure 31, which is 
generated by the AUTOST program file. This screen, referred 



Refer to Ref. 4, chp 5 and Ref. 15, pg. 1-5, for 
details on the SYSB51 file modifications. 
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to as the "Main Menu", provides a function key selection menu 
to access the operations available on the HP9000. 



HP9000 Series 300 Computer Data Acquisition System 



Item: 



Select Function Key 



Turbochars^r Lab (*) 

Transonic Compressor Lab (*) 

Turbine Design Programs (*) 
Multl-Prograimer Opertion (HP69AAA) 
Work directory (♦) 

Backup Files 

HP9000 Program Listing and Information 
Exit Menu 



FI 

F2 

F3 

FA 

F3 

F6 

F7 

F8 



Note: Binaries required for HP1A753A CAT program are loaded 
to operate the HP69AAA Multi -programmer . 

Additional binaries are loaded with selection (*). 

If Error 2 occurs: Memory overflow; reboot system using 
SYSBOOT statement and reselect desired directory. 



User 1 Caps Command 

TURBO COMPRESS DESIGN HP1A733A WORK BACKUP PROGRAM EXIT 
CHARGER LAB CAT DIR LISTINGS MENU * 



Figure 31 HP9000 Initial CRT Screen Display 

Selection of the "F8" function key clears the 
screen and places the user in the root directory. At any time 
when the term "idle" is displayed in the lower right corner of 
the CRT screen, there are no programs in execution, and the 
user can make keyboard command entries. 



that the user needs to know to use BASIC^^. These commands 
are LOAD, RUN, CAT, MSI, and RE-STORE. The LOAD command will 
load the program which is named between quotes into the HP9000 
RAM. RUN will execute the program currently in RAM. CAT will 



“ It is recommended that the user reviews Ref. 13 and 
14 for an operational understanding of BASIC. 



There are five essential, rudimentary commands 
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list to the CRT screen all the files on the current storage 
drive and directory. MSI (''MASS STORAGE IS”) will select a 
directory and/or drive to be what is named between quotes. 
The RE-STORE command copies the program in the RAM to the file 
on the currently named MSI. Caution must be applied when 
using the RE-STORE command. This command will write over any 
previously existing program with the same name, resulting in 
the loss of the previous program. 

Return to the Main Menu is possible from any 
directory on the hard drive. Located on the root directory of 
the hard drive is a program called ”RETURN_MAIN” . Load the 
prograuB by typing the following commands: 

» 

♦ LOAD '•/RETURN_MAIN” , followed by the <Enter> key 

♦ RUN, followed by the <Enter> key 

The ”/” character identifies the root directory. The above 
two steps apply for loading and executing any program. 

(2^ Operating the 20C-14 DAS Program 

The ZOC-14 DAS Program uses function keys and 
selective keyboard data entries. The following steps should 
be followed to operate the ZOC-14 DAS. 

1. Main Menu: Depress function key F4 (Figure 31) to 
call-up the HP Multi-programmer Operating Menu. 

2. HP6944A Operation Menu: ’ Depress function key FI to 
call-up the ZOC-14 Modules Menu. 
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Zoc Electronic Pressure Module Operation Menu: 
Figure 32 is displayed. 



3 . 



Zoc Electronic Pressure Module Operation 


Menu 






Select Function Key 






Scan 1-3 ZOC-14 Modules (32 ports ea) 


FI 






Read reduced data from ZOC- 14 module 


F2 






Plot reduced data from ZOC-lk module 


F3 






Read CALSYS 2000 calibration pressures 


FA 






Read tabulated calibration data 


F5 






Plot Calibration data 


F6 






HP6944A Main Menu 


F7 






Exit Menu 


F8 










User 1 


Caps Command 


SCAN 1-3 READ ZOC PLOT ZOC READ 


TABULATE PLOT 


CAL HP6944A EXIT 


ZOCS DATA DATA CALSYS20 


CAL DATA DATA 


MENU 


MENU * 



Figure 32 Zoc Electronic Pressure Module Operation 
Menu 



4. Check: Ensure that the CALSYS2000, ZOC Enclosure and 
HP6944A are properly connected and energized. 

5 . Check: Ensure that the nitrogen gas supply is 

connected to the CALSYS2000 and about 90 psi is set 
on the regulator. 

6. CALSYS2000 Regulators: Set the High, Medium, and Low 
Pressure regulators on the CALS YS2 000. The three 
pressure values should be evenly distributed within 
the span of the ZOC's positive pressure rated range. 
Precise settings are not critical. Since 50 psid 
and 15 psid ZOCs are used presently, set the 
regulators between 0-30.6 inches of mercury to avoid 
over pressurizing the 15 psid ZOCs. 

7. CALSYS2000 Verification: Select function key F4 

(Figure 32) to cycle the CALSYS2000 and verify the 
pressure settings. (Note: This should be done 

whenever the CALSYS2000 is first energized to clear 
the RS-232C of noise) . Completion of this step 
returns the HP9000 to the ZOC operation menu. 
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8 . 



Load SCAN_ZOC_05: Select function key FI (SCAN 

ZOCS) from the ZOC operation menu to initiate ZOC 
scanning program SCAN_ZOC_05. 

9. Introduction: A series of screen displays occur 

while SCAN_ZOC_05 is loading. The "Introduction” 
screen (Figure 33) is displayed indicating that the 
program is waiting for a function key input. 



Introduction. Program SCAM_ZOC_05: 

* Scans 1*3 Zoc-14 Modules simultaneously (32 pressure sensing ports each). 

- Uses Zero Operate Calibrate (ZOC) principal: 

* Collects raw pressure data (Zero Operate) 

* Collects calibration data (Calibrate) 

* Reduces and stores data on selected hard or floppy drive. 

- CALSYS2000 Calibration Module used for the reference pressure standard. 

* Raw pressure data reduced using calibration data from CALSYS2000 
and Zocs In the calibration mode. 

Input variables: Hard and Floppy drive for data storage 
Sample frequency per port (1*50,000 Hz) 

Samples per Port (1-1021) 

Number of Zocs and their capacity 

Output files: Raw data -> ZW(Zoc#) (Date Y^f1DD) (Run# ) 

Calibration -> ZC(Zoc#)(Date Y^f^DD)(Run#) 

Reduced data *> ZR(Zoc#) (Date YFMDD)(Run#) 

Select F2 key for Key Menu, F3 for system Inputs, or F6 for data reduction. 



User 1 Caps Corrmand 

Intro Key Set-up Data Collect Reduce List Exit 

Menu Preps Data Data Copy * 

Figure 33 SCAN_ZOC_05 Introduction Screen 



10. Set-up Selection: Select function key F3 (Set-up) to 
initialize the program. The "Set-up" screen will be 
displayed. (Note, selection of F4 or F5 at this time 
results in an error message and asks for re- 
selection. ) 

11. Set-up Inputs: The user will be prompted for the 

designated data storage drive (select :, 700, 0,1 if 
equipped)^*, data acquisition rate, the number of 



The program operates on multi-partitioned hard drives. 
TPL's HP9153C Disk Drive has two partitions. Drive :,700 is 
the main drive and is in HFS format with 10 Mbytes of space. 
Drive :, 700, 0,1 is the second "DATA" drive and is in LIF 
format with 30 Mbytes of space. LIF format has faster data 
transfer rates. 
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samples per port (scans) of data to be taken, and 
the number of ZOCs to be used. For each ZOC, the 
user will be prompted for the CALMOD to be assigned 
to the ZOC. Currently only one CALMOD is installed. 
Enter J. for all three ZOCs. When two CALMODs are 
installed, enter 1 or 2 to the applicable ZOC 
according to the CALMOD regulator settings. 

12. Set-up Display; The System Set-up screen 

(Figure 34) is updated as entries are made. The 
program searches the data drive for data files and 
creates the next sequential data file name for the 
current date. 



System Set-up. 




Data acquisition rate: 


10000 Hz 


Humber of samples per 


port: 3 


Humber of Zocs to be scanned: 3 


Total raw data acquisition time: .0093 sec. 


Total calibration data 


acquisition time: 10.3133 sec. 


Data storage disc ■>:,700,0,1 


Data will be stored in 


the following files beginning with Run # 1 


Raw data file: 


ZW1204291 


Calibration data file: 


ZC1204291 


Reduced data file: 


2311204291 


Raw data file: 


2W2204291 


Calibration data file: 


ZC2204291 


Reduced data file; 


ZR2204291 


Raw data file: 


ZW3 204291 


Calibration data file: 


ZC3204291 


Reduced data file; 


ZR3204291 



Figure 34 SCAN_ZOC_05 System Set-up Screen 



13. Data Collection Preparations; Select function key 
F4 (Data Preps) for data collection preparations 
(Figure 35) . 

14. Collect Data; . Select function key F5 (Collect data) 
to begin data collection. The CRT will display the 
results of the collection as illustrated in 
Figure 36. 

15. Data Reduction; To reduce data, select function key 
F6 (Reduce Data) . To make changes to the Set-up, 
select function* key F3 . To conduct another raw data 
collection run, select function key F4. To exit the 
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program, select function key F8 . Selection of F6 
results in the display illustrated in Figure 37. 

16. List/ Copy Files: Selection of function key F7 (List 
Files) will list all current data files on the 
storage drive as illustrated in Figure 38. The user 



Data Collection Preparation. 

Check list: 

* HiScan CALSYS2000 on-line 

- Calibrator supply line valve is OPEN (on back o£ Hiscan) 

- CALSYS2000 (Nitrogen) pressure source at 90 psi 



Select F3 to start data aquisition 



User 1 Caps Coninand 

Intro Key Set-up Data Collect Reduce List Exit 

Menu Preps Data Data Files * 

Figure 35 SCAN_ZOC_05 Data Preparations Screen 



will be prompted if he wants to store all the listed 
files to the floppy drive 700,1. Selection of 
"Yes” results in the over-writing of the old files 
with the same file name. 

17. Exit: Select function key F8 (Exit) to exit the 

SCAN_ZOC_05 program and return to the ZOC operation 
menu (Figure 32) . 

3. Data Analysis and Auxiliary ZOC-14 Programs 
a. Utility Programs 

The ZOC operation menu (Figure 32) displays several 
utility programs which were written for system analysis and 
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Collecting raw pressure data. 

Raw data collection complete. 

Raw pressure data: Run# 1 , Zoc# 1 , storage drive file ZW120A291 : , 700 , 0 , 1 

Raw pressure data: Run# 1 , Zoc# 2 , storage drive file ZW220A291 : , 700 , 0 , 1 

Raw pressure data: Run# 1 , Zoc# 3 , storage drive file ZW3204291 : , 700 , 0 , 1 

Collecting calibration data. 

Calibration data: Run# 1 , Zoc# 1 , storage drive file ZC120A291 : , 700 , 0, 1 

Calibration data: Run# 1 , Zoc# 2 » storage drive file ZC220A291 : , 700 , 0 , 1 

Calibration data: Run# 1 , Zoc# 3 , storage drive file ZC3204291 : , 700 , 0, 1 

Calibration data collection complete. 

Secure Calibrator pressure valve to conserve Nitrogen *** 

CALSYS2000 Calibration modes and pressures (in Hg): 



Mode 


Zoc #1 


Zoc #2 


Zoc #3 


NH 


-30.15AA 


-30.15AA 


-30.15AA 


NM 


-17.9978 


-17.9970 


-17.9976 


NL 


-7.3819 


-7.3819 


-7.3819 


ZO 


.003A 


.003A 


.0034 


PL 


7.A005 


7. A005 


7.4005 


PM 


18.019A 


18.0194 


18.0194 


PH 


30.2072 


30.2072 


30.2072 



Select FA for another data run, or F6 to reduce data 



User 1 Caps Cormand 

Intro Key Set-up Data Collect Reduce List Exit 

Menu Preps Data Data Files ♦ 



Figure 36 SCAN_ZOC_05 Data Collection Screen 



data display. These utility programs, listed in Appendix A, 
are tailored for use with the SCAN_ZOC_05 data file 
formats^^. 

b. ZOC-14 utility Program Application Examples 
An air source regulated to 30.0 inches of mercury 
gauge was used to verify the acquisition hardware and 
software.' Application programs were written to analyse the 
results . 



Data files created from previous versions of the 
SCAN_ZOC programs listed in Appendix B are not compatible with 
the listed utility programs. 
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Calibration and Raw data reduction and storage. 

Current files on storage disc 700, 0,1 for date 20A29 

ZW120A291 2C120A291 

ZW220A291 ZC220A291 

ZW320A291 ZC320A291 

Data reduction; Run# 1 , Zoc# 1 

Calibration data reduced and transferred to ZC120A291 
Raw data reduced and transferred to ZR120A291 

Data reduction: Run# 1 , Zoc# 2 

Calibration data reduced and transferred to ZC220A291 
Raw data reduced and tranaferred to ZR220A291 

Data reduction: Run# 1 , Zoc# 3 

Calibration data reduced and transferred to ZC320A291 
Raw data reduced and transferred to ZR320A291 

Select F3 reinitialize set-up for data collection, or F8 to Exit 



User 1 Corrmand 

Intro Key Set-up Data Collect Reduce List Exit 

Menu Prepa Data Data Files * 

Figure 37 SCAN_20C_05 Data Reduction Screen 



List Raw, Calibration and Reduced data files. 
Data storage drive name •> 700, 0,1 

Current files on storage disc for date 20A29 

ZW120A291 ZC120A291 ZR120A291 

ZW220A291 ZC220A291 ZR220A291 

ZW320A291 ZC320A291 ZR320A291 



Select F2 to return to menu, or F8 to Exit 



Intro 


Key 


Set-up Data 


Collect 


User 1 

Reduce List 


Cotrmand 

Exit 




Menu 


Preps 


Data 


Data Files 


* 



Figure 38 SCAN_ZOC_05 List Files Screen 

The program ”READ_ZOC” (Figure A18) is selected 
function key F2 (READ DATA). The program's results 
illustrated in Figure 39 for ZOC #3 (rated at 15 psid) . 



by 

are 

The 
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Period between samples (sec): .0001 

Sample collection rate (Hz): 10000 

Number of samples per port: 3 

Length of data run (sec): .0093 

Data Tabulation for Port # 1 from file: ZR3204291 

Sample Time (sec) Pressure (Hg.) 

1 0.00000 29.62346 

2 .00320 29.56425 

3 .00640 29,62346 

Data Tabulation for Port # 2 from file: ZR3204291 

Sample Time (sec) Pressure (Hg.) 

1 .00010 29.62771 

2 .00330 29.62771 

3 .00650 29.62771 

Enter port number for data (0-Exit): 

User 1 Caps Command 

EDIT Continue RUN SCRATCH LOAD LOAD BIN LIST BIN RE-STORE 

Figure 39 READ_ZOC Data Results 

displayed pressure is the reduced pressure value calculated 
from the SCAN__ZOC_05 program. The output pressure is derived 
using the recorded transducer output voltage and the curve 
fitted to the calibration data for the identified port. The 
output values are seen to be within 1.3% of the applied 
pressure. 

The program ”PLOT_DATA'' (Figure A19) is selected by 
function key F3 (PLOT DATA) . The results from ZOC #3 are 
displayed in Figure 40 and Figure 41. 

The program "CAL_READ_PR1” (Figure A20) is selected by 
function key F4 (READ CALSYS20) . The results are displayed in 
Figure 42. 

The program "TABULATE_ZOC” (Figure A21) is selected by 
function key F5 (TABULATE CAL DAT) . This program displays the 
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Program plots reduced data from file ZR320A291 

Statistics for Zoc # 3 

Period between samples (msec): .1 
Sample collection rate (Hz): 10000 

Number of samples per port: 3 

Length of data run (msec): 9.5 



Data point can be plotted as a continuous line, or squares. 

Note: Wait for symbol *♦* in lower right comer of CRT to change 
to a before pressing <ShiftxDump Graph> 



User 1 Caps Comnand 

EDIT Continue RUN SCHIATCH LOAD LOAD BIN LIST BIN RE-STORE 



Figure 40 PLOT_DATA Alpha Screen Display 
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Figure 41 PLOT_DATA Graphic Screen Display 

first three reduced data samples of selected ports, and the 
associated calibration data for each selected port. Figure 43 
displays the results for ZOC #3. 
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Program: CAL_READ_PR1 



This program aequantially aats the CAL2000 calibration 
modes and reads the corresponding internal Pressure Standard 
for that mode. 



PH 

PM 

PL 

ZO 

NL 

NM 

NB 



Positive high range pressure to CAL(+) 
Positive mid range pressure to CAL(+) 
Positive low range pressure to CAL(+) 
CAL(+) & RZF(-) connected together 
Negative low range pressure to R£F(-) 
Negative mid range pressure to R£F(-) 
Negative high range pressure to R£F(-) 



CAL2000: Calibration modes and pressures. 
Mode Pressure (in Hg) 



NH 

NM 

NL 

ZO 

PL 

PM 

PH 



30.1606 

17.9945 

7.3788 

.0034 

7.3912 

18.0194 

30.2072 



Figure 42 CAL_READ_PR1 Results 



Program tabulates Zoe pressures and calibration data from 
the SCAN_ZOC_03. program. 

Reduced Data Tabulation at a sample rate of 10000 Hz 



Port Sample 1 Sample 2 

1 29.623 29.564 

2 29.628 29.628 

3 -.414 -.414 

4 -.495 -.425 



Sample 3 
29.623 
29.628 
-.351 
-.425 



Calibration Data Tabulation for Zoc# 3 



Pressure voltage readings: 



Port NH 


NM 


NL 


ZO 


PL 


PM 


PH 


0 -30.154 


-17.998 - 


7.382 


.003 


7.401 


18.019 


30.207 


1 -2.194 


-1.310 


-.521 


.040 


.723 


1.688 


2.704 


2 -2.594 


-1.669 


-.850 


-.278 


.450 


1.478 


2.549 


3 -1.853 


-1.018 


-.250 


.272 


.909 


1.820 


2.770 


4 -1.770 


-1.036 


-.362 


.101 


.673 


1.485 


2.320 


Calibration 

Port 


polynomial 

AO 


coefficients 

A1 


for Zoc# 


3 

A2 





1 -1.00116186204 

2 2.45870376346 

3 -3.96668335674 

4 -1.98202140047 



11.8955586742 

11.1095966035 

12.8254266665 

14.2260022322 



-.435562698234 

-.349715337703 

-.523187753647 

-.645728820628 



A3 

.106534210924 
. 0940454333066 
. 119575469008 
.20262038018 



Figure 43 TABULATE_ZOC Results 



The program ''LS_PLOT” (Figure A22) is selected by 
function key F6 (PLOT CAL DATA) . Figure 44 displays the 
calibration data with voltage verses CALMOD calibration 
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Loo«t Square Plot of O=IL2000 Collbrotfon (Port# I ) 




Figure 44 LS_PLOT Graphic Results 

pressure (squares ) , and the curve fitted to the collected data 
by the least squares method (continuous line) . The results 
are from port #1 on ZOC #3 . 
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III. DISCUSSION 



A. Upgraded CapedDill'ties 

The ZOC-14 DAS provides the capability to perform fully 
automatic high-speed pressure data aquisition, data storage 
and reduction. For the Gas Dynamics Laboratory (GDL ) , this 
upgraded capability allows very short run-times in the 
transonic and supersonic wind tunnels, resulting in greatly 
reduced electrical power consvunption by the laboratories air 
compressors and the elimination of delays between wind tunnel 
tests. Additionally, wind tunnel models will have a longer 
useful life. The shorter run times will reduce model erosion 
and the net effect is a reduced cost to operate the wind 
tunnels and to maintain models. 

The HP9000 now serves as the controller for the DAS's in 
each of the three laboratories comprising TPL and GDL. Each 
DAS includes Hewlett Packard HP-IB compatible instruments and 
the HG-78K Scanivalve Controller. Low speed pressure data 
acquisition, using the HG-78K to operate the Scanivalve rotary 
port pressure sensing unit, is retained. However, for 
turbomachinery measurements, phase-lock data acquisition using 
TPL's Digital Programmable Timing Device (or PACER), can not 
yet be performed using the HP9000 to replace the HPIOOO [Ref. 
24]. TPL's PACER is electrically hard-wired into the HPIOOO 
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as an I/O device. However, the integration of the HP9000 and 
HP6944A, as demonstrated in the ZOC-14 DAS, is known to 
provide the interface capability to operate the PACER. 

Temperature and low-speed pressure measurement data 
acquisition and processing using the HP9000 has been 
demonstrated in turbocharger performance mapping laboratories 
and transonic wind tunnel thesis research [Ref. 25]^®. The 
HP9000 was shown to provide improved data storage handling and 
display capabilities (over the HPIOOO system) using the HP9153 
series hard/floppy disk drive and HP7475A plotter. 

Development of the ZOC-14 DAS served to identify the 
programming and integration requirements, and the capabilities 
of the HP9000 and HP6944A as a subsystem. The HP9000/HP6944A • 
as a controller and data acquisition sxib-system provides to 
TPL and GDL the potential for extension in several prospective 
applications. 

B. ZOC-14 DAS Outstanding Issues 

The ZOC-14 DAS development is not fully complete. Several 
hardware, software, and performance issues need to be 
resolved, namely; 

♦ Hardware: The CALSYS2000 is using only one CALMOD to 

provide calibration pressures for a specific ZOC operating 
range. A second CALMOD is required. 



Appendix D, Figures D3-D6 are HP9000 controlled 
Turbocharger Performance Mapping and data display programs. 
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♦ Hardware: It was not possible to set the "PURGE" mode to 

clear pressure sensing lines using nitrogen gas supply. 

♦ Software: SCAN_ZOC_05 uses a "set" 1.5 sec time delay to 

account for calibration pressure stabilization during the 
calibration process, vice a technique to monitor the 
calibration pressure and digitize when found to be stable. 

♦ Performance: The maximun data sampling rate acheivable 

with the ZOC modules needs to be verified. 

♦ Performance: A data error analysis needs to be carried 

out. 

♦ Performance: The calibration of the CALMOD Pressure 

Standard needs to be verified. 

Some elaboration of each of these issues follows. 

The use of the present one CALMOD results in only the 15 

psid ZOC being calibrated over its full pressure range when 15 
% 

psid and 50 psid ZOCs are used in the DAS. The 50 psid ZOC 
must be used without the 15 psid ZOCs if they are to be 
calibrated and used over their full range. This would reduce 
the pressure data measurement availability from 96 (3x32) to 
32 ports. Installation of a second CALMOD would allow 
independent calibration of the 15 psid and 50 psid ZOC 
modules. The program SCAN_ZOC_05 incorporates the steps to 
use two CALMODs, and requires no modifications. 

The PURGE mode is set by providing control gas through 
both the Px and CAL control lines as illustrated in Figure 
8^^. Currently, the required control gas pressure is not 
provided by the PSC when the appropriate command is sent from 



Refer to Ref. 17, dwg 17750, PNEUMATIC DIAGRAM OF PSC. 
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the HP9000 to the CALMOD. The commands to set the PURGE mode 
are "aEC 8 Y" followed by "aEC 10 N" to set the solenoids in 
the PSC. 

The calibration process requires a stabilization time 
delay to elapse between the setting of a calibration mode and 
the sampling of the calibration pressure by the Pressure 
Standard. The best method to determine the required time 
delay is to continuously sample the calibration pressure until 
the pressure stabilizes, then record the calibration pressure. 
The program SCAN_ZOC_05 uses an empirically derived 1.5 sec 
"wait period” between the calibration mode selections and the 
pressure sampling. This time value was determined using a 
modified CAL_READ_PR1 program, stopwatch and oscilloscope. 
CAL_READ_PR1 was modified with a PAUSE statement to allow 
observation of the ZOC voltage signal on the oscilloscope. 
When the signal appeared to stabilize on the oscilloscope, the 
CONTINUE key (F2) was depressed to sample the pressure and 
select the next mode. The times for six complete mode 
selections were recorded. The average time was found to be 
1.34 seconds between depressions of the CONTINUE key. The 
value of 1.5 seconds was selected as a conservative value to 
use for the time delay. 

The maximum sample data collection rate has not yet been 
realized with the ZOC-14 DAS. Preliminary observations 
revealed a random fall-off in pressure values when the "input” 
data sampling rate was greater than 50 KHz. A more careful 
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analysis of the sampling rate is required to validate the 
current 50 KHz value and to determine the maximum data 
sampling rate. 

An error analysis of the ZOC-14 DAS is required to 
determine the accuracy of the data collection and reduction 
process. The HP67959A A/D Cards have a docximented resolution 
of five milli-volts for their factory set configuration as 
installed in the HP6944A. The Pressure Standard mounted in 
the CALMOD has accuracy specifications documented in Reference 
17. The ZOCs have measurement accuracy specifications 
documented in Reference 16. The numerical Least-Squares curve 
fitting routine introduces a so -far unspecified uncertainty. 
The reduced pressure readings provided in Figure 39 compared 
to the 30.0 inches of mercury source pressure, provide only a 
single example of the pressure measurement uncertainty given 
by the DAS^®. Derivation of the overall system uncertainty 
needs careful attention. 

The Pressure Standard's calibration has not been verified 
since it's delivery. Calibration verification is essential 
prior to accepting pressure measurement data. Accordingly, 
the CALMOD calibration coefficients, derived from the 
calibration verification, need to be changed on the CALMOD 



^® Uncertainty in the source pressure of 30.0 inches of 
mercury as measured by the TPL Calibration Pressure Manometer 
needs to be considered in the uncertainty analysis. 
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EPROM. Reference 17 provides the details to conduct Pressure 
Standard calibration and coefficient changes on the EPROM. 

C. Potential Extensions and other Applications 

The HP9000/HP6944A subsystem provides the hardware 
features necessary to integrate computer control of 
experiments with the data acquisition process. Three 
immediate applications using the HP9000/HP6944A are identified 
here; 



♦ The TPL PACER can be interfaced with the HP9000/HP6944A to 
provide phase-locked data acquisition capability^®. 

♦ Kulite pressure probe measurements can be acquired using 
the analog signal from the conditioning amplifier. The 
signal would be routed directly to the Buffer A/D Function 
input connector, using the Timer Function to set the data 
collection rate and number of samples. 

♦ GDL's transonic and supersonic wind tunnels can be 
operated with fully automated data acquisition and 
experiment control systems. The tunnel's manual back- 
pressure valve, and electro-servo controlled translating 
survey probe can be operated by the HP9000/HP6944A to give 
fully automated control. 



Preliminary TPL PACER interfacing techniques have been 
examined but not yet documented. 
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IV. CONCLUSIONS 



The DAS upgrade and extension which is reported here has 
included the adoption of the HP9000 as a controller for 
existing HP-IB compatible DAS instrumentation, the generation 
of acquisition and reduction software for the existing system, 
and the development of a new high-speed pressure data 
acquisition capability. The new high-speed system involved an 
integration of the HP9000 with the HP6944A Multiprogrammer and 
with Scanivalves ' s ZOC-14 and CALSYS2000 systems. In the 
present account, emphasis has been placed on reporting the 
development of the ZOC-14 DAS. The hardware and software for 
the system have been successfully demonstrated. It has been 
shown that the use of the system in the Gas Dynamics 
Laboratory can reduce wind tunnel test times by a factor of 
20 . 

Six issues concerning the present hardware and software 
have been identified as needing to be resolved, and immediate 
applications of the HP9000/HP6944A system to Kulite and Phase- 
Locked data acquisition, probe survey and tunnel condition 
control, have been identified. The programs and experience 
reported in the present document can serve to guide these 
extensions . 

The key to developing the capabilities resident in the 
HP9000/HP6944A system is a thorough familiarity* with HP BASIC 
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and HP14753A CAT programming. Therefore, the recommendation 
is made that formal instruction in this language and 
programming techniques be provided before the recommended 
extensions of the system are attempted. 



I 
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APPENDIX A. ZOC-14 PROGRAMS 



Appendix A is a compilation of pertinent information and 
programs used to operate the ZOC-14 DAS. 

Figure A1 is the ZOC-14 DAS program configuration file, 
"ZOC_CONFIG_05" , print-out for the I/O Cards installed in the 
HP6944A. The print-out is produced using the CAT program 
••DOOJMENT". The DOCUMENT program is located on the ''/HP6944A'' 
directory (Figure Dl) . ZOC_CONFIG_05 is a BDAT file located 
in the /HP6944A directory. 

Figures A2 through A16 are parts of the SCAN_ZOC_05 
program flow chart. Figure A17 is the SCAN_ZOC_05 program 
listing with program-specific remarks anotated after the ”!" 
character. 

Figures A18 through A22 are ZOC-14 DAS utility programs 
located on the /HP6944A directory. 

Figure A23 is the program used to display the ZOC 
operation menu, and define the function keys to provide menu 
item selection by function keys. 
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File Name: 2OC_CONFIG_05 
User ID: 

List of Names: 

Bufferl Add 

Adc2 Buffers 

Timer 



26 Apr 1992 16:53:12 

Buffer2 

Adc3 



Configuration for Bufferl 
Model Buffer 

Multlprogranmer Type . . . HP695AA or HP6944A 
Interface Select Code . . 29 

Frame 0 

Slot 0 

Initial Mode FIFO 

Initial Lockout ........ Off 

Timeout 10 

Memory Type .... 69791A 
No of Extenders ... 0 
Ref Reg 1 . . 0 
Ref Reg 2 ... 0 
Buffer Direction . . In 
Front End Type . . 697S9A 
A/D Names: 1 . Add 

2 . None 

3 . None 

4 . None 

5 . None 

6 . None 

7 . None 

8 None 



Configuration for Add 
Model 69759A 500 KHz A/D 



Multlprogranmer Type . . . HP695AA or HP69AAA 
Interface Select Code . . 29 

Frame 0 

Slot 7 

Full-scale Range +-10.2A volts 

Initial Internal Range ... 10 

Range Source Internal 

Scanner None 

Timeout 10 

Data Conversion Standard 

Internal Trigger Disabled 

External Trigger Enabled 

Trigger Mode Multiple 

Trigger Polarity Negative 

Lockout Polarity Disabled 

Master Output Enable Enabled • 

Mux Output Control Disabled 

External Output Enable .... Disabled 

Gate Mode Multiple 

Return Data With Sign Extension 



[ Page 1 ) 
20C CONFIG 05 



Figure A1 ZOC-14 Configuration File 
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Configuration for Buffar2 
Model Buffer 



Multiprogramraer Type . . . HP695AA or HP694AA 
Interface Select Code . . 29 

Frame 0 

Slot 2 

Initial Mode FIFO 

Initial Lockout Off 

Timeout 10 

Memory Type ♦ . ♦ , 69791A 
No of Extenders ... 0 
Ref Reg 1 . . 0 
Ref Reg 2 ... 0 
Buffer Direction . . In 
Front End Type . . 697 59A 
A/D Names: 1 . Adc2 

2 . None 

3 . None 
A . None 

5 . None 

6 . None 

7 . None 

8 . None 



Configuration for Adc2 
Model 69739A 500 KHz A/D 



Multiprograomer Type ... BP695AA or BP69AAA 



Interface Select Code . . 29 

Frame 0 

Slot 9 

Full-scale Range +-10.2A volts 

Initial Internal Range ... 10 

Range Source Internal 

Scanner None 

Timeout 10 

Data Conversion Standard 

Internal Trigger Disabled 

External Trigger Enabled 

Trigger Mode Multiple 

Trigger Polarity Negative 

Lockout Polarity Disabled 

Master Output Enable Enabled 

Mux Output Control Disabled 

External Output Enable .... Disabled 

Gate Mode Multiple 

Return Data With Sign Extension 
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Figure A1 (cont) ZOC-14 Configuration File 
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Configuration for Buffers 
Model Buffer 



Multiprogranmer Type ... HP6954A or HP69AAA 
Interface Select Code . . 29 

Frame 0 

Slot 4 

Inltiel Mode FIFO 

Initial Lockout Off 

Timeout 10 

Memory Type .... 69791A 
Ho of Extenders ... 0 
Ref Reg 1 . . 0 
Ref Reg 2 ... 0 
Buffer Direction . . In 
Front End Type . . 697 59A 
A/D Names: 1 . Adc3 

2 . None 

3 . None 

4 . None 

5 . None 

6 . None 

7 . None 

8 . None 



Configuration for Adc3 
Model 697 59A 300 KHz A/D 



Multiprogranmer Type . . . HP8954A or HP8944A 
Interface Select Code . . 29 



Frame 0 

Slot 11 



Full'scele Range +-10.24 volts 

Initial Internal Range ... 10 

Range Source Internal 

Scanner None 

Timeout 10 

Data Conversion Standard 

Internal Trigger Disabled 

External Trigger Enabled 

Trigger Mode Multiple 

Trigger Polarity Negative 

Lockout Polarity Disabled 

Master Output Enable Enabled 

Mux Output Control Disabled 

Extexmel Output Enable .... Disabled 

Gate Mode Multiple 

Return Date With Sign Extension 
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Figure A1 (cont) ZOC-14 Configuration File 
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Configuration for Timer 
Model Timer 



Multiprogrammer Typo . . . HP695AA or HP6944A 
Interface Select Code . . 29 
Tlmer-Pacer Frame . . 0 
Timer-Pacer Slot . . 13 

Counter Frame 0 

Counter Slot 15 

Counter size ... 15 Bita 

Timeout 10 

Data Conversion Standard 

Run Time Limit Checking ... No 

Initial Period 2.E-6 

Initial Count 0 

Digital Out Controller . . No 



[ Page 4 ] 
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Figure A1 (cont) ZOC-14 Configuration File 
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B 



Figure A2 Program: 



Start-up and Initialization 
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Figure A2 (cont) Program: Start-up and Initialization 
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Intro: 



Display Introduction page to Screen 
GOTO Hold 

© 

© 

Key_menu : 

Display ZOC-14 Operating Menu 
to the screen 



GOTO Hold 




Figure A3 Program: Introduction and Operating Menu 
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f3 



Input : 



Set array ZOC_CAL = 0 



Determine Date 



■{^ FNDate$ ^ 



input Hard drive designation for data storage 



INPUT Data sampling rate 



INPUT Number of samples per port 



I 



INPUT Number of ZOCs connected to Multiprogrammer 




FOR 



Run=l 



CALL File 



NEXT 






INPUT CALMOD2000 
designated for ZOC 



Display Set_up parameters 



Display data file names from File 



GOTO Hold 




Figure A4 Program: Set-up Parameters 
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Figure A5 Program: Data Collection Preparations 
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f5 




Figure A6 Program: Data Collection 
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Figure A6 (cont) Program; Data Collection 
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Figure A6 (cont) Program: Data Collection 
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Figure A7 Program: Data Reduction and Storage 
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Figure A8 Program: Data File Listing and Storage 
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Figure A9 Program: Exit / Subprogram; FNDate$ 




Figure AlO Subprogram: File 
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Figure AlO (cont) 



Subprogram; File 




Figure All Subprogram: 



Scan zocs 
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Figure A12 Subprogram: Raw_dat 
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Figure A13 Subprogram: Cal2000 
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Figure A14 Subprogram: 



Cal dat 




Figure A15 Subprogram: Raw_red_dat 
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Figure A15 (cont) Subprogram: Raw_red_dat 
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Figure A16 Subprogram: File_scan 
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Figure A16 (cont) Subprogram: File_scan 
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Prograin: SCAN_ZOC_05 

Description: Application prograin to operate HP6944A collecting pressure 
readings from 1-3 ZOC-14 32 port modules using the CAISYS 
2000 to provide calibration data, reduce raw prassura data 
and store data to tha hard driva. 

Hardware: (1) HP6944A Multi-processors 

- (3) 500 kHz A/D Cards (HP69759A) 



- (3) High Spaad Memory Cards (HP69791A) 

- (1) Timer/Pacar Card (HP69736A) 

- (1) Counter Card (HP69775A) 

(1) HiScan CALSYS 2000 Calibration Module 
(3) ZOC-14 32 port Electronic Preasure Scanning Modulas 
Notes: 1. This program utilizes up to threa (3) ZOC Modules storing data 
of each ZOC into a separate buffer Memory System (HP69791A) . 

2. COM /Names/ line and BDAT file ZOC_CONFIG_05 must match for 
this program to operate. 

3. CALSYS2000 requires a short period to stabilize before reading 
the pressure valves. The Pause_for statement sets (line 470) this 
wait period in seconds. Adjustmant of the variable ray ba required 
as additional ZOCs are integrated into the Data Acquisition System. 

4. CALSYS2000 currently configured for ona (1) calibrator. This 
program is written to operate ona (1) or two (2) calibrators. 



I Buffer Memory: 65536 16-bit data words in HP69791A par system 
I Timer: Maximum 32767 counts for one HP69775A (32*1023-32736 data points) 
I Max spaad of HP system is Period-0.000002 sec. or 500 kHz. 

! 



COM /Issscom/ INTEGER X( 1:1106) 

COM /Isss^heap/ Issa_heap( 1000) 

COM /Names/ Bufferl,Adcl,Buffer2,Adc2,Buffer3,Adc3, Timer 
Conf igura(”Menu_of f , **ZOC_CONFIG_05” ) 

!Con£lgura('*Ask me"/’2CX: CONFIG_05”) 

! 



340 Kay label: ! 

350 ” ! 

360 KEY LABELS ON 

370 ON KEY 1 LABEL 

380 ON KEY 2 LABEL 

390 ON KEY 3 LABEL 

400 ON KEY 4 LABEL 

410 ON KEY 5 LABEL 

420 ON KEY 6 LABEL 

430 ON KEY 7 LABEL 

440 ON KEY 8 LABEL 

450 ! 



KEY LABEL ASSIGNMENT 



’Intro” (3OT0 Intro 
’Key Menu” CXDTO Koy_menu 
’Set-up” CX)T0 Input 
’Data Preps” C5OT0 Data_prep 
Collect Data” GOTO Collect_data 
’Reduce Data” CXDTO Reduca_data 
’List Copy” GOTO Viaw_files 
’Exit” GOTO Finish 



460 Initialize^spac: ! ASSIGN MEMORY SPACE 

470 Pause_for-l. 5 ! Wait time for CALSYS2000 stabilization 

480 ! COM assigns calibration data array for 32 Zoc ports and standard values. 

490 COM /Zoc_dat/ REAL Zoc_call ( 33 , 10 ) BUFFER, Zoc_cal2( 33 , 10 ) BUFFER. Zoc_cal3 ( 33 , 10 ) BUFFER 
500 COM /Stats/ REAL Pulsa,Sample^numbar , Pausa^for, INTEGER Cal_mod^ld(3) ,Date$t6] ,Run 
510. COM /Files/ File$( 1 : 99, 1 : 9) t ll] , Data_driva$ t 11) !Data file & storage drive. 

520 ! 

530 DIM Command_moda$( 1: 7 ) (2) 

540 Command_moda$( 1)-”NH" 

550 Command_modaS(2)-”NM” 

560 Comnand_moda$(3 )-”NL” 

570 Command_mode$( 4 )-"ZO” 

580 Command_moda$( 5)-”PL” 

590 Comnand_modaS(6 )-”PM” 

600 Command_moda$(7)“"PH" 

610 ! 

620 Run-0 

630 Data_reducad=0 

640 ! 



650 Intro: ! INTRODUCTION SCREEN 



Figure A17 ZOC-14 DAS Prograin: SCAN_ZOC_05 
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660 ! 

670 CLEAR SCREEN 

680 PRINT "Introduction. 

690 PRINT 

700 PRINT " 

710 PRINT " 

720 PRINT " 

730 PRINT " 

7A0 PRINT " 

750 PRINT " 

760 PRINT " 

770 PRINT " 

780 PRINT 

790 PRINT " 

800 PRINT " 

810 PRINT " 

820 PRINT " 

830 PRINT 

8A0 ! Note: 

850 ! 

860 ! 

870 ! 

880 PRINT 

890 PRINT 

900 PRINT 

910 DISP 



Program SCAN_ZCX:_05 : " 

* Scans 1^3 Zoc-IA Modules simultaneously (32 pressure sensing ports each). 

• Uses Zero Operate Calibrate (ZOC) principal:" 

- Collects raw pressure data (Zero Operate)" 

- Collects calibration data (Calibrate)" 

- Reduces and stores data on selected hard or floppy drive." 

- CALSYS2000 Calibration Module used for the reference pressure standard." 
~ Raw pressure data reduced using calibration data from CALSYS2000" 
and Zocs in the calibration mode." 

Input variables: Hard and Floppy drive for data storage" 

Sample frequency per port (1-50,000 Hz)" 

Samples per Port (1-1023)" 

Number of Zocs and their capacity" 



HFS Files limited to lA characters, LIF Files limited to 10 char. 

Output files have a length of 10 characters to support LIF forr at. 

700 is HFS format, :, 700, 0,1 is LIF format. 

:, 700,1 la LIF format. 

Raw data -> ZW(Zoc#) (Date Y^WDD) (Run#)" 

" Calibration ■> ZC(Zoc#) (Date Y^M)D) (Run#)" 

" Reduced data -> ZR(Zoc#) (Date YhMDD) (Run#)" 

Select F2 key for Key Menu, F3 for system inputs, or F6 for data reduction." 



Hard drive 
Floppy drive 
"Output files: 



920 Hold: ! 

930 GOTO Hold 
9A0 I 

950 Key menu: I- 
960 ! 

970 
980 
990 
1000 
1010 



KEY MENU 



CXEAR SCREEN 

PRINT "Z(X-1A Operating Menu," 
PRINT 

PRINT "Function 
PRINT 



Function Key" 



1020 


PRINT " 


Introduction 


FI" 


1030 


PRINT " 


(Operating Menu 


F2" 


lOAO 


PRINT " 


System Set-up 


F3" 


1050 


PRINT " 


Data Collection Preparation 


FA" 


1060 


PRINT " 


Data Collection 


F5" 


1070 


PRINT " 


Data Reduction 


F6" 


1080 


PRINT " 


List Files (Copy files to Floppy) 


F7" 


1090 


PRINT 






1100 


PRINT " 


Exit 


F8" 


1110 


! 







GOTO Hold 

! 



1120 
1130 

11 AO Input:! INPUT VARIABLES 

1150 MAT Zoc^call- (0) 

MAT Zoc[]cal2- (0) 

MAT Zoc"cal3- (0) 

MAT Files- ("-") 
DateS-FNDate$(TIMEDATE) 



1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

12A0 

1250 

1260 

1270 

1280 

1290 

1300 



! 

CLEAR SCREEN 

PRINT "System Set-up." 

PRINT 

INPUT "Select Hard drive for storing data (0-:,700 1»: ,700,0, l)",Drv 
IF Drv-0 THEN 

Data^driveS-" : , 700 ,0.0" 

ELSE 

Data_drive$-" : , 700 ,0,1" 

END if” 

INPUT "Enter data sampling rate ( l-50kHz ) : " . Hz 



Figure A17 (cont) ZOC-14 DAS Program: SCAN_ZOC_05 
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1310 

1320 

1330 

1340 

1330 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1430 

1460 

1470 

1480 

1490 

1300 

1310 

1320 

1330 

1540 

1550 

1560 

1370 

1380 

1390 

1800 

1610 

1620 

1630 

1840 

1830 

1880 

1870 

1880 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1880 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 



PRINT "Data acquisition rate: ;TAB(50) ;Hz; ** Hz” 

INPUT "Number of aamples per port (1-1023): ", Sample__n umber 
PRINT "Number of samples per port: " ;TAB(50) ;Sample_number 
INPUT "Number of Zoc*a connected to Multi -programer ", Zoc_number 
PRINT "Number of Zoca to be scanned: "; TAB (50) ; Zoc_number 
Cal__mod_id( 0 )"Zoc_number 
FOR Zoc_case-l TO Zoc_number 
SELECT Zoc_caae 
CASE 1 

Run*l 

CALL Filed) 

INPUT "Enter Calibration Module number set for Zoc #1 (Enter 1 or 2) : " , Cal_mod_id( 1 ) 
CASE 2 

Run*l 

CALL File(2) 

INPUT "Enter Calibration Module number set for Zoc #2 (Enter 1 or 2) : " ,Cal_mod_id(2) 
CASE 3 

Run-1 

CALL File(3) 

INPUT "Enter Calibration Module number aet for Zoc #3 (Enter 1 or 2) : " ,Cal_mod_ld(3) 
END SELECT 
NEXT Zoc case 
! 



Period-l/Hz 

Pulae-Period/2 ! Pulse length of HP69736A trigger signal 

! 

PRINT "Total raw data acquisition time: ";TAB(30) ;Period*Sample_number*31; " sec." 

PRINT "Total calibration data acquiaition time:";TAB(50) :Period*5*31+(7*Pause_for) ;" sec. 
PRINT 

PRINT "Data storas* diac ->" ;Data_drive3 

PRINT "Data will be stored in the following filea beginning with Run #";Run 
PRINT 

FOR I-l TO Zoo^number 
J-(I-1)*3 

PRINT "Raw data file: " ;FlleS(Run . J+1) 

PRINT "Calibration data file: " ;File$(Run, J-i'Z) 

PRINT "Reduced data file: " ;File$(Run, J+3) 

PRINT 
NEXT I 
! 

DISP "Select F4 key to begin data acjuiaition" 

GOTO Hold 
I 



Datajprep: ! PREPARE FOR DATA COLLECTION 

CLEAR SCREEN 

PRINT "Data Collection Preparation." 

PRINT 

IF Run-0 THEN 



PRINT "Program not initialized for data collection." 

DISP "Select F3 to initialize Set-up" 

GOTO Hold 
END IF 

PRINT "Check list:" 

PRINT " - HiScan CALSYS2000 on-line" 

PRINT " - CALMOD supply line valve is OPEN (on back of CALSYS2000)" 

PRINT " - CALSYS2000 (Nitrogen) preasure aource at 90 psi" 

! 

I 

CONTROL 9.5:3 ! Set DTR & RTS to Active for CALSYS2000 

OUTPUT 9;VAL$(1);"IC";CHR$(13);END! Initialize Calibrator module 
OUTPUT 9;VAL3(2);"IC";CHR$(13);END! Initialize Calibrator module #2 * 

WAIT Pause_for ! Allow CALSYS2000 to aet Zoca 

» 



DISP "Select F5 to start data aquisition" 
GOTO Hold 



Figure A17 (cont) ZOC-14 DAS Program: SCAN_ZOC_05 
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COLLECT DATA 



1980 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

20A0 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

21h0 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 



! 

Collect data:!' 

IF Run-0 THEN 

PRINT '‘Program not inltialired for data collection.” 

DISP "Select F3 to initialize Set-up” 

GOTO Hold 
END IF 

CLEAR SCREEN 
PRINT 

PRINT “Collecting raw preaaure data.” 

Count-SampIe_number*32 ! Set Count as function of sample number 

! and number of port readings (32) on 
! Zoc for raw data collection. 

CALL Sc an_ 2 ocs( Count , Pulse) ! Collect raw data into Memory System 

PRINT 

PRINT “Raw data collection complete.*' 

BEEP 

j 

Raw^data^xfer: ! TRANSFER RAW DATA FM MEMORY SYSTEM TO HARD DISC 

PRfNT 

! 

FOR Zoc_caae-l TO Zoc^number I Collect raw data, reduce 

SELECT Zoc_caae ! and store reduce data on 

CASE 1 

CALL Raw_dat( Buffer 1,1) 

CASE 2 

IF Run>l THEN 
Run-Rtm-1 
END IF 

CALL Raw dat(Buffer2. 2) 

CASE 3 

IF Run>l THEN 
Run-Run- 1 
END IF 

CALL Raw_dat(Buffer3,3) 

END select” 

NEXT Zoc_caae 

! 

Initial^cal: ! — CALIBRATION SET-UP — 

! Calibration data array for each Zoc: Zoc_cal_(33 , 10) 

! Format: 

! For ports i-1 to 33 
! Row 0, column 0: Period 

! Row 0, column 1: Sample number 

! Row 0, column 2: Zoc # 

! Row 0, column 3: Calibrator module ID (1-50 psi 2-15 psi) 

! Row 0: NHNMNLZOPLPMPH (pressure Hg. ) 

I Row i: AO A1 A2 A3 NH NM NL ZO PL PM PH (LS coef, press volts) 

I LS coef are Least Squares curve fit coef for third order polynomial. 

! 

PRINT 

PRINT "Collecting calibration data." 

REAL Call(1120),Cal2(1120),Cal3(1120)! Calibration data array 
Count-32*5 ! Set count to collect calibration data 

! 

MAT Zoc_call- (0) 

MAT Zoc_cal2- (0) 

MAT Zoc”cal3- (0) 

Zoc^calKO , 0)-Period 

Zoc_call(0 , l)»Sample_number 

Zoc_call(0,2)-1 

Zoc"call (0 . 3 )-Cal_mod_ld ( 1 ) 

Zoc_cal2(0 , 0)-Period 
Zoc_cal2(0 . l)“Sampie_number 
Zoc_cal2(0.2)-2 



data and 
hard drive 



Figure A17 (cont) ZOC-14 DAS Program: SCAN_ZOC_05 
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2610 Zoc_cal2(0 , 3 )-Cal_mod_id(2) 

2620 Zoc_cal3(0.0)-Period 
2630 Zoc_cal3 ( 0 , 1 )*Sampla_number 
2640 Zoc“cal3(0,2)-3 

2650 Zoc_cal3 (0,3 )-Cal__mod_ld ( 3 ) 

2660 ! 

2670 Collect_cal_dat: ! COLLECT RAW CALIBRATION DATA 

2680 ! 

2690 ! Collect raw calibration data for each CALSYS2000 setting 
2700 FOR Index-1 TO 7 

2710 CALL Cal2000 (Coi7inand_tnode$( Index ), Index) 

2720 CALL Scan_zoca (Count, Pulse) 

2730 FOR Zoc^caae-l TO Zoc^number 

2740 SELECT Zoc case 

2750 CASE 1 

2760 Input_rblock(Bufferl,Call(*) , 160, (Index-l)*160+l) 

2770 CASE 2 “ 

2780 Input_rblock(Buffer2,Cal2(*) ,160, (Index~l)*160+1) 

2790 CASE 3 “ 

2800 Input^rblock (Buf f er3 , Cal3 ( ♦ ) , 160 , ( Index- 1 )*160+1 ) 

2810 END SELECT 

2820 NEXT Zoc^caae 

2830 NEXT Index* 

2840 ! 

2850 ! Store collected calibration data 

2860 FOR Zoc_case-l TO Zoc^number 
2870 SELECT Zoc^case 

2880 CASE 1 

2890 CALL Cal_dat(Call(*) ,2oc_call(*) ) 

2900 CASE 2 * 

2910 CALL Cal_dat(Cal2(*),Zoc_cal2(*)) 

2920 CAjSE 3 * 

2930 CALL Cal_dat(Cal3(*) , Zoc_cal3(^) ) 

2940 END SELECT* 

2950 NEXT Zoc^caae 
2960 ! 

2970 PRINT 

2980 PRINT ’’Calibration data collection complete.” 

2990 BEEP 
3000 WAIT .25 
3010 BEEF 

3020 OUTPUT 9;VALS(l);”IC”;CrHRS(13);END! Initialize Calibrator module #1 
3030 OUTPUT 9;VAL$(2);”IC”;CBRS(13);END! Initialize Calibrator module #2 
3040 PRINT 

3050 PRINT Secure Calibrator preasure valve to conserve Nitrogen 

3060 PRINT 

3070 PRINT ’’CALSYS2000 Calibration modes and pressures (in Hg):” 

3080 FmtlrlMAGE / , 5X,K, 10X,K, 10X,K, lOX, K 

3090- PRINT USING Fmtl ; ’’Mode” , ”Zoc #l”,”Zoc #2",”Zoc #3” 

3100 Fmt2:IMAGE 6X,K, lOX, 3D. 4D, 8X,3D. 4D, 8X, 3D. 4D 
3110 FOR 1-4 TO 10 

3120 PRINT USING Fmt2; Command mode$(I-3) . Zoc call(0 , I ) , Zoc_cal2(0 . I ) . Zoc_cal3 (0 . I ) 
3130 NEXT I 

3140 DISP ’’Select F4 for another data run, or F6 to reduce data” 

3150 GOTO Hold 
3160 ! 

3170 Reduce^data: ! REDUCE DATA AND STORE ON HARD DRIVE 

3180 ! Routine loads raw and calibration data from storage drive, reduces the 
3190 ! data, and stores the data to the storage drive. 

3200 ! 

3210 CLEAR SCREEN 

3220 PRINT ’’Calibration and Raw data reduction and storage.” 

3230 PRINT 

3240 IF Run-0 THEN 

3250 INPUT "Enter the date of data for for reduction (YM^D) : ” . Date$ 
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3260 INPUT ’’Numbar of Zoc's connected to Multi-progr amor'* , Zoc_number 

3270 INPUT "Select data storage drive (0":,700 1-;, 700, 0,1 2»: , 700 , 1 ) " , Drv^case 

3280 SELECT Orv^case 

3290 CASE 0 

3300 Data^dr ive$-" ; , 700 , 0 . 0" 

3310 CASE l” 

3320 Data_drlvo$-’**; ,700,0, 1’* 

3330 CASE 2 

3340 Data_drlve$-’*: ,700,1** 

3350 END SELECT 

3360 END IF 
3370 ! 

3380 MAT Files- (**-’’) 

3390 FOR Zoc_case-l TO Zoc^number lAssign files from storage to File$(*) 

3400 SELECT Zoc^case 

3410 CASE 1 

3420 CALL Flle_scan(l) 

3430 CASE 2 

3440 CALL File_scan(2) 

3450 CASE 3 

3460 CALL Fil«_scan<3) 

3470 END SELECT ~ 

3480 NEXT Zoc^case 
3490 I 

3500 PRINT **Current files on storage disc " ;Data_drive$; " for date ";DateS 

3510 PRINT 

3520 FOR Rn-1 TO Run 

3530 FOR Zn-1 TO Zoc number 

3540 FOR I-l TO 3 

3550 PRINT USING **3X,K,#*';Flle$(Rn, (2n-l)*3+I) 

3560 NEXT I 

3570 PRINT USING **+,L** 

3580 NEXT Zn 

3590 NEXT Rn 
3600 PRINT 
3810 ! 

3620 FOR Run^red-l TO Run ! Reduce data routine. 

3630 FOR Zoc_case-l TO Zoc_number 

3640 SELECT Zoc^case 

3650 CASE 1 

3660 CALL Raw red_dat(l,Run red) 

3670 CASE 2 " 

3680 CALL Raw_red_dat(2,Run_red) 

3690 CASE 3 “ 

3700 CALL Raw_red_dat(3 ,Run_red) 

3710 END select” 

3720 NEXT Zoc_case 

3730 NEXT Run^red 
3740 Run-0 
3750 Data reduced-1 
3780 beep" 

3770 DISP "Select F3 reinitialize set-up for data collection, or F8 to Exit" 

3780 GOTO Hold 
3790 ! 

3800 View^files: I VIEW FILES ON STORAGE DRIVE 

3810 I Routine loads files from storage drive and displays file names. 

3820 I 

3830 CLEAR SCREEN 

3840 PRINT **List Raw, Calibration and Reduced data files." 

3850 PRINT 

3860 IF Data_reduced-1 THEN Print_files 
3870 IF Run-0 THEN 

3880 INPUT "Enter the date of data for for reduction (YIWDD) : " , DateS 
3890 INPUT "Number of Zoc's connected to Multi-programer" . Zoc_number 

3900 INPUT "Select data storage drive (0-:,700 1-:, 700, 0,1 2- : . 700 , 1 ) ” , Drv_case 
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3910 SELECT Drv_case 
3920 CASE 0 

3930 Data_drive$-": ,700,0,0" 

39A0 CASE 1 

3950 Data^driveS-": . 700,0, 1" 

3960 CASE 2 

3970 Data_drivo$-” ; , 700 , 1" 

3980 END SELECT 

3990 END IF 



4000 Print^filas: t 

4010 PRINT "Data storag* drive name -> " ;Data_drive3 

4020 ! 

4030 MAT Files- 

4040 FOR Zoc^caae-1 TO Zoc_number iAsaign files from storage to FileS(*) 

4050 SELECT Zoc^caae 

4060 CASE 1 

4070 CALL File^scand) 

4080 CASE 2 

4090 CALL File_scan(2) 

4100 CASE 3 

4110 CALL File_scan(3) 

4120 END SELECT " 

4130 NEXT Zoc^case 
4140 t 
4150 PRINT 

4160 PRINT "Current files on storage disc for date ";DateS 
4170 PRINT 

4180 FOR Rn-1* TO Run ! Print the files listing on the 

4190 FOR Zn-1 TO Zoc^number , tdesignated storage drive. 

4200 FOR I-l TO 3 “ 

4210 PRINT USING "3X,K,#";FileS(Rn, (Zn-1)*3+I) 

4220 NEXT I 

4230 PRINT USING "/" 

4240 NEXT Zn 

4250 NEXT Rn 
4260 1 

4270 IF Drv_case<2 THEN 

4280 INPUT "Do you want to copy files from the Hard drive to Floppy? (0-No 1-Yes)'* ,Copy_h_to_f 
4290 IF Copy_h_to_f-0 THEN End_view 

4300 ON ERROR GOSUB View^error” 

4310 PRINT 

4320 PRINT "WARNING: Any duplicate existing files on the Floppy will be copied over!" 

4330 PRINT !Copy the files from the designated 

4340 FOR Rn-1 TO Run !hard drive to the floppy drive. 

4350 FOR Zn-1 TO Zoc number 

4360 FOR I-l TO 3 ” 

4370 FiS-FileS(Rn, (Zn-1)*3+I) 

4380 COPY Fi$&Data_drive$ TO Fi$&" : . 700 , 1" 

4390 IF FiS<>"-" THEN 

4400 PRINT "File ";Fi$;" copied to Floppy" 

4410 END IF 

4420 NEXT I 

4430 NEXT Zn 

4440 NEXT Rn 

4450 PRINT 

4460 PRINT "Files have been copied from " ;Data_drive$; " to Floppy :, 700,1" 

4470 END IF 

4480 GOTO End_view 

4490 View error: ! 



4500 SELECT ERRN 
4510 CASE 56 
4520 CLEAR E^OR 
4530 ERROR RETURN 
4540 CASE 54 

4550 PURGE Fi$&" : , 700 , 1" 



iFile does not exist, then continue. 

(Return to line following COPY 
!DupLicate file exist on the floppy, 
!then purge the dup file, retrun to 
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4560 CLEAR ERROR 

4570 RETURN ! the line COPY and copy the file. 

4580 CASE ELSE 
4590 DISP ERRMS 

4600 PAUSE 

4610 END SELECT 
4620 ! 

4630 ! 

4640 End-view: ! 

4650 Run*0 

4660 DISP **Select F2 to return to menu» or F6 to Exit'* 

4670 GOTO Hold 
4680 ! 

4690 Finish:! 

4700 LOAD ’‘ZOC^MENU** , 10 
4710 ! 

4720 END 

4740 I Function to return todays date for Input Into file names 
4750 DEF FKDateS (Seconds ) 

4760 Julian-Seconds DI7 86400-1721119 

4770 Year-(4*Jullan-l) DIV 146097 

4780 Jullan-(4*Jullan-l) MOD 146097 

4790 Day*Jullan DIV 4 

4800 Jullan-(4*DarK3) DIV 1461 

4810 Day-(4*Day+3) MOD 1461 

4820 Day-(Day+4) DIV 4 

4830 Month-(5*Day-3) DIV 153 I Month 

4840 Day-(5*Day-3J MOD 153 

4850 Day-(Da7+5) DIV 5 I Day 

4860 Year-100*Year+Jullan 

4870 IF Month<10 THEN 

4880 Month"Month^3 

4890 ELSE 

4900 Month-Month+3 

4910 Year-Year+1 

4920 END IF 

4930 year$-VAL$(Year) 

4940 IF Month<10 THEN 

4950 Month$-**0*’&VAL3(Month) 

4960 ELSE 

4970 Mon th$-VALS (Month ) 

4980 END IF 

4990 IP Day<10 THEN 

5000 Day3- '* 0** AVALS ( Day ) 

5010 ELSE 

5020 DayS-VAL3(Day) 

5030 END IF 

5040 D3-Year3(4]&Month3&0ay3 

5050 RETURN D3 

5060 FNEND 

5070 ! 

5080 I Subroutine to build file names as required by Run number for a specified 
5090 ! Zoc , and assign existing flies to the File3 matrix. 

510Q SUB Flle(Zn) 

5110 COM /Stats/ REAL Pul3e,Sanrple_number,Pause_for, INTEGER Cal_mod_id(3) ,DateS,Run 

5120 COM /Files/ Flle3(*) .Data_drlve3 

5130 DIM Data_dlsclS[23) ,Data_dlsc2S(231 ,Data_dlsc3S[23] 

5140 ON ERROR^'gOTO Error 

5150 J-(Zn-l)*3 

5160 Asslgn^file: ! 

5170 Fllel-0 

5180 Data_fllelS-’'ZW"&VAL$(Zn)&DateS&VAL3(Run) 

5190 Data_discl3"Data_f llol3&Data_driv03 

5200 ASSIGN @Check_pathl TO Data_disclS ICheck for exlstance of ZW_. 
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5210 


Flle3(Run , J+1 )-Data_f i lel$ 


! Assign ZW_ to matrix. 


5220 


Fllal-1 


!Flag to ID file exists. 


5230 


I 




52A0 


Flle2-0 




5250 


Data flle2$-'*ZC’'&VAL$(2n)&Date$&VAL$(Run) 


5260 


Data disc2$»Data £ile2$&Data driveS 




5270 


ASSIGN eCheck_path2 TO Data_dlsc2$ 


iCheck for existence of ZC_. 


5280 


File$(Run,J+2)-Data flle2$ 


lAssign ZC_ to matrix. 


5290 


Flle2-1 


IFlag to ID file exists. 


5300 


I 




5310 


Data £1 la3$-'* 2R*’&VAL$ ( 2n )&Date$&VAL$ ( Run ) 


5320 


Data diac3$«Data £ile3$&Data driveS 




5330 


ASSIGN @Checkjpath3 TO Data_dlsc3$ 


ICheck for existance of ZR_. 


53A0 


Files (Run. J+3) -Data £lle3$ 


! Assign ZR_ to matrix. 


3350 


1 




5360 


Run-Run+1 


Ilf ZW_ exist, reassign Run # 


5370 


ASSIGN 0Checkj>athl TO * 




5380 


ASSIGN 6Check_path2 TO ♦ 




5390 


ASSIGN 0Check_path3 TO * 




5A00 


GOTO A88lgn_£lle 


ICheck storage disc again. 


5A10 


Error: ! Subroutine 1£ ERROR-56, files 


donot exist for Run and Zoc 


5A20 


IF ERRN<>56 THEN 




5A30 


PRINT ERRMS 




5AA0 


PAUSE 




5A50 


END IF 




5A60 


IF Fllel-0 THEN Fin 


IFlle ZW_ doesnot exist, exit 


5A70 


IF Fllel-1 THEN 


iFlle ZW_ exists 


5A80 


IF Flle2-0 THEN 


IFlle ZC_ doesnot exists, therefore 


5A90 


ASSIGN QCheck^athl TO * 




5500 


PURGE Data disclS 


I delete ZW_. 


5510 


ELSE 




5520 


Run-Run+1 


IFlle ZW_ & ZC_ exist, step Run 


5530 


END IF 


land continue. 


55A0 


END IF 




5550 


ASSIGN §Checkj>athl TO * 




5560 


ASSIGN 0Checkjpath2 TO ♦ 




5570 


ASSIGN 0Check_path3 TO ♦ 




5580 


GOTO Assign file 




5590 


Fin: ! 




5600 


ASSIGN 0C:heck_pathl TO ♦ 




5610 


ASSIGN 0Check_path2 TO * 




5620 


ASSIGN §Check_path3 TO * 




5630 


Data_£l le2$-’* ZC*’&VAL$ ( 2n ) &Date$&VAL$ (Run ) 


56A0 


Data"fl le3$-” 2R**&VAL$ ( 2n )&Dat e$&VAL$ ( Run ) 


5650 


ril«3(Run,J+l)-Data_mel3 


ICreate ZW_ to matrix. 


5660 


Flle3(Run, J+2 )-Data~flle23 


ICreate ZC_ to matrix. 


5670 


Flla3(Run,J+3)-Data~flle33 


lAssign ZR_ to matrix. 


5680 


SUBENO 




DO9U 






5700 


I Subroutine to operate the HP69AAA Multi -programmer for scanning Zocs. 


5710 


SUB Scan zocs (Count, Puls a) 




5720 


COM /Names/ Bufferl, Add, Bu££er2,Adc2,Bu£fer3,Adc3, Timer 



5730 Walt^tlme-Count*2’*Pui3o+10 . 0 

57 AO InltTllmor) 

57 50 Sat_tlmaout (Timer , Wal t_tlma ) 

5760 Sat^count (Timer, Count ) 

5770 Set_period(Timer,Pulsa) 

5780 Init(Buf£erl) 

5790 Init(Bu££ar2) 

5800 Init(Bu£fer3) 

5810 Start (Timer) 

5820 Wait for(Timer) 

5830 subend' 

58A0 ! 

5850 ! Subroutine to collect raw pressure data from Memory System and store 



! Set Timer wait time to +10 secs. 

! Initialize Timer system 
! Set Pause_for period of xx secs. 

! Set Count number into Timer 
! Set Timer pulse length in secs. 

! Initialize Buffer for data storage 



! Start data sample collection 
! Data samples stored in Memory System 
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Zoc#";Zn;", storag* drive file *' ;Data_fileS&Data_driveS 



I Run step routine when compiling 
! multiple date runs without data 
! reduction. 



3660 ! onto tha hard driva for future data reduction. 

5670 SUB Raw_dat(Buff,Zn) 

5660 COM /Stats/ REAL Pulse , Sample^numbor, Pause^for , INTEGER Cal_mod_id(3 ) .DatoS , Run 
5690 COM /Files/ FileSC*) ,Data_driveS ! Data file listing for 99 runs. 

5900 ON ERROR GOTO Error 

5910 INTEGER Raw_data( 32672) BUFFER ! Integer raw data buffer for 32*1021 
5920 t data samples. Integer format for 

5930 I mininum transfer time to storage. 

5940 DIM Data_diac$t23] 

5950 Sn>Sample_number 

5960 Aaaign_file: t 

5970 Data_file$-Fila$(Run,(Zn-l)*3+l) ! Raw data file 

5960 Data_disc$-Data_file$&Data_drive$ 

5990 CREATE BDAT Data_diac$, 32*Sn'M,2 ! Create BDAT file of 2 byte records. 

6000 ASSIGN 6Data_path TO Data_disc$ ! Assign path to hard drive 

6010 ASSIGN QBuffer^path TO BUFFER Raw_data<*) ; FORMAT OFF 

6020 Input_iblock(Buff ,Raw_data(*) ,Sn*32, 1) ! Load data samples 

6030 CONTROL §Buffar_path, 4 ; 32*2*Sn+2 ! Close buffer when full 

6040 TRANSFER §Buffer_path TO 6Data_path ! Transfer data Data_disc 

6050 ASSIGN QBuffer^ath TO * 

6060 ASSIGN QData^path TO * 

6070 PRINT "Raw pressure data: Run#"; Run; 

6060 GOTO Fin 

6090 Error: ! 

6100 IF ERRN054 THEN 

6110 PRINT ERRM3 

6120 PAUSE 

6130 END IF 

6140 IF ERRN-54 THEN 

6150 Run»Run+l 

6160 CALL File(Zn) 

6170 END IP 

6160 GOTO Assign.file 

6190 Fin: ! 

6200 SUBEND 

6210 ! - 

6220 ! Subroutine controls calibration mode and raads pressure from Pressure 
6230 ! Standard into Zoc^calC*) array. 

6240 SUB Cal2000(Coanand$,I) 

8250 CCM /Zoc^dat/ REAL 2oc_call(*) BUFFER, Zoc_cal2(* ) BUFFER, Zoc_cal3 (*) BUFFER 
6280 COM /Stats/ REAL Pulse,Sample_nurnber,Pausa_for, INTEGER Cal_mod_id(3) ,DateS ,Run 

6270 DIM Pressures [5] ! Required to raad data stream 

6260 OUTPUT 9;VAL$(1) ;CoramandS;CHRS(13);END ! Sets calibrator #1 moda 

6290 OUTPUT 9;VAL$(2);CooinandS;CHRS<13);END 

6300 WAIT Pause^for 

6310 FOR K-1 TO"Cal_mod id(0) 

6320 SELECT K 

8330 CASE 1 

6340 OUTPUT 9 ; VAL$ (Cal_mod_id ( 1 ) ) ; "RP" ; CHRS ( 13 ) ; END 

6350 ENTER 9 USING "#.SD.5DESZZ,K";Zoc_call(0, 1+3), Pressures 

6360 CASE 2 

6370 OUTPUT 9 ; VALS (Cal_mod_id( 2 ) ) ; "RP” ; CHRS ( 13 ) ; END 

6300 ENTER 9 USING "#, SD . 5DESZZ,K" ; Zoc_cal2(0 , 1+3 ). Pressures 

6390 CASE 3 

6400 OUTPUT 9 ; VALS (Cal_mod_id( 3 ) ) ; "RP" ;CHRS ( 13 ) ; END 

6410 ENTER 9 USING "#,SD . 5DESZZ,K" ; Zoc_cal3 (0 , 1+3 ), Pressures 

8420 END SELECT 

0430 NEXT K 

6440 IF I<-3 THEN ! Account for positive pressures used 

6450 Zoc_call(0,I+3)— Zoc_call(0,I+3) ! by CALSYS2000 in the NH,NM, & NL mode. 

6460 Zoc”cal2(0 , 1+3 )— Zoc"cal2(0 , 1+3 ) 

6470 Zoc”cal3(0,I+3)—Zoc_cal3( 0,1+3) 

6400 END IF 

6490 SUBEND 

6500 ! 



t Sets calibrator #2 moda 
! Allow CALSYS2000 to stabilize 
! Read CALSYS2000 cal press 
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8310 ! Subroutine stores calibration data collected from Memory System and 
6320 f CALSYS2000 calibration pressure data onto the hard drive. 

6330 ! Zoc_cal_ is then stored onto the hard drive. 

6340 SUB Cal^datCREAL Cal(*) , Zoc_cal(*) BUFFER) 

6330 COM /Stats/ REAL Pulse,Sainple_nuniber, Pause_f or » INTEGER Cal_mod_id(3) ,Dato$, Run 
8360 COM /Files/ File$(*) ,Data_drive$ ! Data file listing for 99 runs. 

6370 ! 

6380 ! Converting Cal(*) to Zoc_cal(*) 

8390 FOR J-4 TO 10 ! Cal runs: NH,NM,NL, ZO, PL,PM,PH 

6800 FOR I-l TO 32 ! Zoc ports per calibration run 

6610 FOR K*0 TO A 1 Number of samples per run 

8820 Zoc cal(I,J)-Zoc cal(I , J)+Cal(I+K»32+( J-4)*160) 

8830 NEXT K 

8840 Zoc^cald, J)-Zoc cal<I,J)/5 ! Average of 5 samples per port I 

8830 NEXT T 

6660 NEXT J 

8670 1 

6660 t Transfer calibration data to hard drive. 

6690 ON ERROR GOSUB Purge_file 

6700 DIM Data_disc3C23] t Define string for data file name 

6710 Zn*Zoc^cal(0, 2) ! Define Zoc number 

8720 Data_flle$-Flle3(Run, (Zn-l)*3+2) ! Calibration data flla 

6730 Data_disc3-Data_fila3&Data_drlva3 

8740 CREATE BOAT Data^discS , 33 , 8*11 I Create BOAT flla of 11*8 byte 

6730 ASSIGN @Data_path TO Data_disc3 ! Assign path to hard drive 

8780 ASSIGN 8Buffer_path TO BUFFER Zoc_cal(*) ; FORMAT OFF 

6770 CONTROL fiBuffer^path, 4; 8*11*33 !Set data file length 

6780 TRANSFER SBufferjpath TO SData_patb! Store cal data on hard drive 

8790 ASSIGN 8Buffer_path TO * t Close path 

8800 ASSIGN 8Data_path TO * t Cloaa path 

6810 PRINT **Calibratlon data: Run#** ;R\m; , Zoc#** ; Zn ; , storage drive file **;Data disc3 
8820 GOTO Fin 



6630 

6640 

8830 

6660 

8870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

8930 

6960 

8970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7030 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7130 



Purge_file: t 

IF~ERRN-34 THEN 

PRINT **Error occured in SUB Cal^dat. 
PAUSE 
END IF 
RETURN 

Fin: I 

SUBEND 

! 



Error :-;ERRN 



! Subroutine loads raw and calibration data from the storage drive, 

! reduces the data, and stores the data onto the storage drive. 

! Calibration data is reduced using the Least Squares Curva fit to obtain 
t coefficients for a third-order polynomial. The raw pressure data is 
t reduced using these coefficients. 

t Buffer arrays are replaced with standard arrays for data manipulation, 
t Utilization of Buffers and the TRANSFd routine results in lost of the 
t first several data bytas when data is transfarred from floppy media to 
! tha buffer. Utilization of OUTPUT, ENTER, and arrays results in no 
t data lost with floppy media. Hard disc media wbrks wall with either 
t data manipulation techniqua using buffers or standard arrays. 

SUB Raw_red_dat(Zn,Rn) 

COM /Names/ Buffarl, Adel , Buff er2,Adc2, Buff er3 ,Adc3 .Timer 

COM /Stats/ REAL Pulse,Sample_number,Pause_^f or, INTEGER Cai_mod_id( 3 ) , Date$ [ 6 ] 
COM /Files/ FileS(*) ,Data_drive3 !Data file listing for 99 runs. 

! Calibration data file 



, Run 



Data_filel3-File3(Rn. (Zn-l)*3+2) 
Data~file23-File3(Rn, (Zn-1)*3+1) 
Data“fila33-File3(Rn, (Zn-l)*3+3) 
! 

IF Data_flla33<>”-” THEN 
GOTO Fin 
END IF 

t 

IF Data fllel3-*’-’’ THEN 



! Raw data file name 
! Reduced data file name 

! Continue if Reduce data file 
! doesnot exist. 
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7160 PRINT "Calibration file doeanot exist for Run#";Rn;", Zoc#";Zn 

7170 GOTO Fin 

7180 END IF 

7190 ! 

7200 ON ERROR GOSUB Error 

7210 DIM Data_dlscl$(23] 

7220 DIM Data”diac23(23] 

7230 DIM Data_dlsc3$C23] 

72A0 Data^dl8cl$*Data^fllel$&Data^driveS 

7250 REAL Zoc_cal(32, 10) !Array to handle calibration data 

7260 ! 



7270 Data^raduction: ! 

7280 PRINT "Data reduction: Run#";Rn;", Zoc#";Zn 
7290 ! 

7300 ASSIGN 0Data_pathl TO Data^diaclS; FORMAT OFF 

7310 ENTER 9Data_pathl ; Zoc_cal(^) ILoad raw calibration data into array 

7320 ASSIGN 0Data_pathl TO ♦ 

7330 ! 

73A0 ! Calibration data reduction using Least Squares Polynoniinal fitting. 

7350 REAL A(3,3) ,B(3) ,C(3) ,Sum_x<6) ,A_lnv(3,3) ! Least Square reduction arrays 
7360 FOR K"1 TO 32 ! Loop for each port 

7370 ! 

7380 MAT C- (0) 

7390 MAT Sum_x- (0) 

7A00 ! 

7A10 FOR J-l TO 6 ! Routine to reduce individual port cal 

7A20 FOR I-A TO 10 ! data into eletnents to a power x*J 

7A30 Sum_x( J)-Sum_x( J)+Zoc cal(K,I)^J 

7AA0 NEXT I 

7A50 NEXT J 

7A60 ! 

7A70 FOR I-O TO 3 ! Derive A array 

7A80 FOR J-0 TO 3 

7A90 A(I,J)-Sum x(I*»-J) 

7500 NEXT J 

7510 NEXT I 

7520 A<0,0)-7 

7530 I 

75A0 FOR J-0 TO 3 ! Derive C array 

7550 FOR I-A TO 10 

7560 C(J)h:(J)+Zoc cal(K,I)"J*Zoc cal(0,I) 

7570 NEXT I “ 

7580 NEXT J 

7590 ! 

7600 MAT A_inv- INV(A) 

7810 MAT B- A_inv*C f B array is matrix of Least Square 

7620 ! coefficients a0,al,a2,& a3 for polynomial 

7630 ! equation fitting calibration data for a 

76A0 ! specified port 

7650 ! 



7660 

7670 

7680 

7690 

7700 

7710 

7720 

7730 

77A0 

7750 

7760 

7770 

7780 

7790 

7800 



Collect Least Square coefficients . 

2oc_cal(K,0)-B(0) fCoefficient aO 
Zoc_cal(K, l)-B(l) ICoefficient al 
Zoc“cal(K.2)-B(2) fCoefficient a2 
Zoc_cal(K,3)-B(3) fCoefficient a3 



NEXT K 
f 

ASSIGN 6Data_pathl 
OUTPUT 9Data_pathl; 

ASSIGN 0Data_pathl 

I 

PRINT "Calibration 
f 

! Recover raw data, convert to real, reduce then store in blocks 



TO Data^dlsclSjFORMAT OFF 

Zoc calc*) fStore reduced calibration data 

TO • 

data reduced and transferred to ";Data filelS 



Figure A17 (cont) ZOC-14 DAS Program: SCAN_ZOC_05 
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7810 ! of aamplaa (32 porta scannad par block) 

7820 Sn*Zoc^cal(0 , 1) tSampIa number. 

7830 INTEGER Data^integer (1 : 32) lArray to handle raw Integer data. 

78A0 REAL Data^raaK 1 : 32) ^Data(32) lArraya to handle raw and reduced 

7850 Data^dlac2S-Data_f lla2$&Data_drlva$ freal data. 

7860 Data"flla3$-**ZR**&VAL3(Zn)&DateS&VALS(Rn) IReducad data file name. 

7870 Data_dlsc3$*Data_flle3$&I)ata^drlve3 

7880 CREATE BOAT Data_dlac33»Sn, 8*33 !BDAT file of 33*8 byte records. 

7890 ASSIGN 0Data_path2 TO Data_dlsc23; FORMAT OFF 

7900 ASSIGN §Data_path3 TO Data"’dlac33; FORMAT OFF 

7910 ! 

7920 CONTROL SData_path2, 3; 2 !Sat raad pointer to 2nd record 

7930 ! tin raw Interger data flla. 

79A0 FOR Block-1 TO Sn 

7950 ENTER SData_path2; 0ata_lnteger (*) tLoad raw data Into array. 

7960 SELECT Zoc cal(0,2) ITranalatlng raw intergar data Into 

7970 CASE 1 traw raal data. 

7980 Tranalata(Adcl,Data Intager (*) .Data real(*)) 

7990 CASE 2 ~ 

8000 Tranalata(Adc2.Data IntegerC*) .Data real(*)) 

8010 CASE 3 

8020 Tranalata(Adc3 .Data_lntegar (*) ,Data_raal(*) ) 

8030 END SELECT 

80A0 t 

8050 ! Routine to reduce raw real data; 

8060 I 

8070 ! Data - aO + al*x + a2*x^2 + a3*x^3 

8080 ! 

8090 t where a0.al.a2. & a3 are Least Square coefflclanta . and x la 
8100 t the Individual port raw date value. 

8110 ! 

8120 0ata<0)-Block t Store reduce data sample number. 

8130 FOR K-1 TO 32 

81A0 Date(K)-Zoo cal(K. 0)A>Zoc caKK. l)*Dete reel(K)A>Zoc cal(K.2)*Data raal(K)"2A>Zoc_cal 

8150 NEXT K ^ 

8180 ! 

8170 OUTPUT 6Data_path3;0ata(*) tStore block of reduced data Into 

8180 NEXT Block tlnto the flla on tha designated drive. 

8190 t 

8200 ASSIGN §Dataj>ath3 TO * 

8210 ASSIGN 0Data_path2 TO * 

8220 PRINT **Raw data reduced and transferred to *';Data flle33 
8230 PRINT 

82A0 GOTO Fin 

8250 Error: t Routine to trap error in program. 

8280 PRINT ERRM3 

8270 PAUSE 

8280 RETURN 

8290 Fin: 1 

8300 SUBEND 

8310 I - - 

8320 I Subroutine to load existing files required by Run niimber for a specified 
8330 ! Zoc. and assign existing fllaa to the Flle3 matrix for Data reduction 

83A0 t and List files routines. 

8350 SUB Flla_scan(Zn) 

8360 COM /State/ REAL Pulse , Sample_number. Pause_for .INTEGER Cal_mod_id ( 3 ) , DataS . Run 

0370 COM /Fllaa/ Flle3 ( * ) . Data_drlve3 

8380 DIM Data_dlacl3(23) . Data_dlac23( 23 ) ,Data_dlsc33t23 ) 

8390 Rn-1 

8A00 Loop-1 

8A10 Flla^ln^storaga-0 

8 A 20 ON ERROR GOTO Error 

8A30 J-(Zn-l)*3 

8AA0 WHILE Loop-1 

8A50 Fllal-0 

Figure A17 (cont) ZOC-14 DAS Program: SCAN_ZOC_05 
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8A60 

8A70 

8480 

8490 

8500 

8510 I 

8520 

8530 

8540 

8550 

8560 ! 

8570 
8580 
8590 
8600 

8610 ! 

8620 

8630 Error 



Data_£i le 1$**' ZW"&VAL$ ( Zn )&Date$&VAL$ (Rn ) 
Data_discl$=Data_fllel$&Data_drlve$ 

ASSIGN QCheck^pathl TO Data_dlscl$ .'Check for axlstance of ZW_. 
Flle$(Rn, J+1)-Data_fllel$ fAsslsn ZW to matrix. 

Fllel-1 

Data_fil02$-"ZC"&VAL$(Zn)&Dat0$&VAL$(Rn) 

Data_dlsc2$-Data_fll02$&Data_drlv0$ 

ASSIGN 8Ch0ckjpath2 TO Data_dlac2$ !Check for existance of ZC_. 
Flle$(Rn, J+2)-Data_flle2S !Asslgn ZC_ to matrix. 

Data^fl Ie3$-‘»ZR** AVALS ( Zn )&Date$&VAL$ (Rn ) 
Data_dl8c3$-Data_fll03$&Data_drlv0S 

ASSIC^N @Ch0ck_path3 TO Data_dlac3$ ICheck for existance of ZR_. 
FlleS(Rn, J+3)-Data_flle3S ! Assign ZR_ to matrix. 

GOTO Asslgn^flle tCheck storage disc again. 

: 1 Subroutine If ERROR-56, files donot exist for Rn and Zoc 



8640 IF ERRN<>56 THEN 

8650 PRINT ERRWS • 

8660 PAUSE 

8670 END IF 



8680 Asslgn_flle: ! 

8690 IF Filel-1 THEN 

8700 File_ln_storage-l 

8710 END IF“ 

8720 IF Fllel-0 THEN 

8730 IF Flle_ln_storage-l THEN 

8740 Loop-0 

8750 END IF 

8760 END IF 

8770 ASSIGN SCheckjpathl TO * 

8780 ASSIGN 8Checkjpath2 TO * 

8790 ASSIGN 6Checkjpath3 TO * 

8800 IP Rn-100 THEN 

8810 Loop-0 

8820 END IF 

8830 Rn-Rn+1 

8840 END WHILE 

8850 Fin: ! 



! Switch to begin entering 
ffile names In to FileS 



! Switch to exit routine 
!once entries are made 
!lnto Files 



I Exit routine after checking 
I up to 100 possible Run #s 



8860 Run-Rn-2 

8870 SUBEND 

8880 ! 



Figure A17 (cent) ZOC- 14 DAS Program: 
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10 I Program: READ_3CX3 

20 I Oaacriptlon: Reads specified data compiled from program SCAN_ZOC_OA . 

30 CLEAR SCREEN 

40 PRINTER IS CRT 

50 DIM Data_diacl3t231 

60 DIM Data_diac2$t231 

70 INPUT "Enter Zoc # (1,2,3), date (YIUDD), and run , Zoc , DateS , Run 

00 INPUT "Print results to screen or printer (0-Screon l=-Printor)’*, View 

90 IF Viaw-1 THEN 

100 PRINTER IS 711 

110 ELSE 

120 PRINTER IS CRT 

130 END IF 

140 Data_fllal$-"ZC"&VAL3(Zoc)&Date$&VAL$(Run) 

150 Data“file2$-"ZR"&VAL$(Zoc)&Data$&VAL3(Run) 

160 Data2discl3-Data_filal3&"! , 700,0,1" 

170 Data”disc23-Data_fila23&": ,700,0,1" 

100 ASSIGN 0Data_pathl TO Data_discl3 
190 ASSIGN @Data_path2 TO Data_disc23 
200 REAL N1,N2 

210 STATUS @Data_pathl,3;Nl ! Datarmina number of records 

220 STATUS @Datajpath2, 3 ; N2 ! Datarmina number of records 

230 ALLOCATE REAL Cal (Nl-1, 10) ,Data{ 1 :N2, 32) ! Dafina REAL array of records 
240 ENTER eData_pathl;Cal(*) 

250 ENTER §Data_path2;Data(*> 

260 Pariod-Cal(0,0) 

270 Hz-l/Pariod 

200 SampIa_numbar^al(0, 1) 

290 Zoc"Cal(0,2) 

300 Print^rasults: I 

310 PRINT "Data Print Out for Zoo #";Zoc;", Run #";Run 
320 PRINT 

330 PRINT TAB(5);"Pariod batwaan samplas (sac ) : " ;Pariod 

340 PRINT TAB(5); "Sample eollaetion rata (Hr): ";H* 

350 PRINT TAB(5) ; "Numbar of samplas par port: " ;Sampla_numbar 

360 PRINT TAB( 5) : "Length of data run (sac): " ; Pariod*31*Sampla_numbar 

370 Loop: ! 

300 PRINT 

390 INPUT "Enter port numbar for data (0*Exit) : " , Port^numbar 
400 IF Port_numbar-0 THEN Finish 

410 INPUT "Entar First sample# of run to ba viewed: " ,Samplol 
420 INPUT "Entar End sampla# of run; " ,Sampla2 

430 PRINT "Data Tabulation fox Port #";Port^numbar: "from file: " :Data_file23 
440 PRINT 

450 PRINT USING "K, 6X,K, 6X,K" ; "Sampla" , "Tima (sac )", "Pressure (Hg.)" 

460 FOR Sampla*Samplal TO SamplaZ 

470 PRINT USING "5D, 7X. 2D. 5D, 0X, 3D. 5D" ;Sampla ,( (Sample-1 )*32+(Port numbar-1) )*Period.Data 
400 NEXT Sampla 

490 GOTO Loop 

500 Finish: ! 

510 ASSIGN 0Data_pathl TO * 

520 ASSIGN 0Data_path2 TO * 

530 DEALLOCATE Cal(*) 

540 DEALLOCATE Data(*) 

550 PRINT 

560 PRINT 

570 PRINTER IS CRT 

500 LOAD "ZOC^MENU’MO 

590 END 



Figure A18 ZOC-14 DAS Program: READ_ZOC 
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10 ! Program! PLOT^DATA 

20 ! Descript: Plots reduced data compiled by SCAN_ZOC_OA . 

30 ! Actual data pointa are ploted as squares. Square size 

AO ! can be adjusted by varying variable Sc in line 110. 

50 I 

60 COM /Plot_labela/ REAL Xo,Xf , Yo , Yf ,Dx,Dy.Title$(60) ,X_label$[50) . Y_labelS(50) 

70 ! 

80 CLEAR SCREEN 

90 PRINTER IS CRT 

100 Sc*. 005 tScale size of plotting squares 

110 PRINT ’'Program; PLOT_DATA” 

120 PRINT 

130 PRINT ’’Program plota the reduced data compiled by the program SCAN_ZOC^05 . 

140 PRINT ’’Hard copiee of plots can be reproduced to either the HP Think Jet” 

150 PRINT "printer or HP Laaer Jet printer.” 

160 PRINT 

170 PRINT 

180 PRINT "Preaa F2 to continue after calibration diaplay is plotted” 

190 PRINT ’’Preaa <Shift> <Dump Graph> for printout of plot on tha printar” 

200 ! 

210 ! Load data — 

220 DIM Data_discl$(23] 

230 DIM Data_disc23(23) 

240 INPUT ’’Enter Zoc # (1,2,3), Date (YPMDD), Run ” ,Zoc,DateS.Run 
250 File_namalS-”ZC”&VAL3(Zoc)&DateS&VAL$(Run) 

260 File_name23*”ZR”&VAL3(Zoc )&Data3&VAL3(Run) 

270 Data_dlscl3-FilejnamalS&” : . 700 , 0 , 1” 

280 Data~diac23-File_name23A”; ,700,0,1” 

290 ASSIGN §Data_j)athl TO Data_discl3 

300 ASSIGN S0atajpath2 TO Data][diac23 

310 REAL N1,N2 

320 STATUS 60ata_pathl, 3 ;N1 t Determine number of recorda 

330 STATUS 6Data_path2,3 ;N2 t Determine number of records 

340 ALLOCATE REAL Cal(Nl-l, 10) ,Data(l:N2,32) t Define REAL array of recorda 

350 ENTER 8Datajpathl?Cal(*) 

360 ENTER S0ata_path2 ;Data(*) 

370 Period-Cal(0,0) 

380 Hz-l/Period 

390 Sample_number-Cal(0. 1) 

400 Zoc-Cal(0,2) 



410 Diaplay^atats: I 



420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

830 

640 

650 



CLEAR SCREEN 

PRINT ”Program plota raduced data from file ”;File_name23 
PRINT 

PRINT ’’Statistics for Zoc #”;Zoc 
PRINT 

PRINT TAfi( 5) ; ’’Period between aamplea (msec ) : ” ;Period*1000 

PRINT TAB(5); ’’Sample collection rate (Hz): ”;Hz 

PRINT TAB( 5) ; ’’Number of samples per port; Samp le_n umber 

PRINT TAB ( 5 ): ’’Length of data r\m (msec): ”;( (Sample_number-1) *32+31 )*Period*1000 

PRINT 

PRINT 

PRINT ’’Data point can be plotted as a continuous line, or squares.” 

PRINT 

PRINT ”Nota: Wait for symbol in lower right corner of CHIT to change” 

PRINT ” to a before pressing <ShiftxDump Graph>” 

I 

INPUT ’’Enter Port #:”,P 

INPUT ’’Enter min range of pressure reading (in Rg):”,Yo 
INPUT ’’Enter max range of pressure reading (in Rg):”,Yf 
INPUT "Enter Start time for plot (msec):”,Xo 
INPUT ’’Enter Stop time for plot (msec)):”,Xf 

INPUT "Enter type of data point plotting (0-Squares 1-Line ):", Plot_case 
INPUT "Plots DUMPED to Think Jet or Laser Jet: (0-TJ 1-LJ) ” , Dump_device 
IF Dump_device-1 THEN 



Figure A19 ZOC-14 DAS Program: PLOT_DATA 
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660 DUMP DEVICE IS 9 

670 ELSE 

680 DUMP DEVICE IS 711 

690 END IF 
700 ! 

710 Title$-"Reduced Data Plot of ?orti^ "&VAL$(P) 

720 X_label$-”Tlme (rasec)” 

730 Y_label$-"Preasure (In Hg)’* 

740 Dx-lO !Tic marks per X-axis on plot 

750 Dy*10 !Tic marks per Y-axls on plot 

760 ! 

770 ! PLot routine 

780 CALL Plot !Rountine to display graph background 

790 FOR I-l TO Sample_number !Plot Squares around data points 

800 Sample_time-((Data(I,0)-l)*32+(P-l))*1000*Period 

810 SELECT^Plot^case 

820 CASE 0 

830 PLOT Sample_timo,Data(I,P),-2 !Move pen to data point position 

840 CALL Square(Xo,Xf , Yo, Yf ,Sc) fSubrountine to plot squares 

850 CASE 1 

860 PLOT Sample_time,Data(I,P) 

870 END SELECT 

880 NEXT I 
890 ! 

900 PAUSE 

910 Finish: I 

920 CLEAR SCREEN 

930 INPUT **Graph another calibration plot; ( 0"No 1-Yea Again 
940 IF Again-1 THEN Display ^stats 
950 ASSIGN 9Data_pathl TO 
960 ASSIGN 0Datajpath2 TO * 

970 DEALLOCATE Cal(*) 

980 DEALLOCATE Data(*) 

990 PRINTER IS CRT 
1000 DUMP DEVICE IS 711 
1010 LOAD ”ZOC MENU”, 10 
1020 END 

1040 SUB Plot 



1050 


I 




1080 


! Subroutine to display plot 


screen, less the plots of any curves 


1070 


! for the specified variables 


in the CCDM /Plot labels/ line. 


1080 


COM /Plot labels/ Xo,Xf,Yo, 


Yf , Dx , Dy , Titles , X^labe 13 . Y_labelS 


1090 


CLEAR SCRiEN 




1100 


KEY LABELS OFF 




1110 


GINIT 


Unitialize graph routine 


1120 


X_range-Xf-Xo 


! Length of X-axis 


1130 


Y”range-Yf-Yo 


! Length of Y-axis 


1140 


LORG 6 


ICharacter ref pt:top center 


1150 


MOVE 100*RATIO/2,100 


!Move cursor to screen loc for labels 


1160 


CSIZE 3 


! Sizes labeling 


1170 


LABEL Titles 


!Plot title 


1180 


MOVE lOO^RATIO/2,0 


!Move cursor to bottom center screen 


1190 


LORG 4 


ICharacter ref ptrbottom center 


1200 


LABEL X_label3 


!X-axis label 


1210 


DEG 


IDesig degrees for LDIR 


1220 


LDIR 90 


tSets Y-axis label on end 


1230 


LORG 6 




1240 


MOVE 0,50 




1250 


LABEL Y labels 


!Y-axis label 


1260 


LDIR 0 " 


IReaet label to horizontal orientation 


1270 


LORG 2 


!Chr ref ptrleft center 


1280 


VIEWPORT 10, 90*RATIO, 10,90 


!Sets graph screen size 


1290 


FRAME 


!Box around VIEWPORT 


1300 


WINDOW Xo.Xf.Yo.Yf 


!Set axis lengths in VIEWPORT 



Figure A19 (cont) ZOC-14 DAS Program: PLOT_DATA 
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1310 

1320 

1330 

13A0 

1350 

1360 

1370 

1300 

1390 

lAOO 

lAlO 

1A20 

1A30 

lAAO 

1A50 

1A60 

1A70 

1A80 

1A90 

1500 

1510 

1520 

1530 

15A0 

1550 

1560 

1570 

1580 

1590 



t 



AXES X_range/Dx , Y__range/Dy ,Xo , Yo lAxea Intersect at lower left 

AXES X__range/Dx, Y_range/Dy ,Xf , Y£ !Axes intersect at upper right 

GRID X_range/Dx,Y_range/Dy,Xo,Yo,Dx,Dy, .001 

CLIP OFF !So labels can print outside VIEWPORT 

CSIZE 3.0,. A !Axes label size 

LORG 6 ! Number X-axis 



FOR I-Xo TO Xf STEP X_range/Dx 
MOVE I , Yo- . 01*Y_range 
LABEL USING **#,K”;I 
NEXT I 

LORG 8 ! Number Y-axis 



FOR I-Yo TO Y£ STEP Y_range/Dy 
MOVE Xo-.01*X_ranga7l 
LABEL USING ••#,K**;I 
NEXT I 
CLIP ON 



SUBEND 

SUB Square (Xo,Xf,Yo,Yf, Sc) 

!Subroutire to plot squares around the local origin designated 
!by the PLOT statement. 

Xd-Sc*(X£-Xo) IX displacement for RPLOT 

Yd-Sc*(Yf-Yo)*RATIO !Y displacement for RPLOT 

RPLOT -Xd,Yd,-2 
RPLOT Xd,Yd,-l 
RPLOT Xd,-Yd,-1 
RPLOT -Xd,-Yd,-1 
RPLOT -Xd,Yd,2 
SUBEND 



Figure A19 (cont) ZOC-14 DAS Program 
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10 ! Program: CAL_READ_PR1 

20 I Description: program to operate CAL2000 calibration modes sequentially 
30 ! and read corresponding calibration pressures in Bg as a 

AO I test bad for later insertion into the Zoc scanning programs 

50 I Author: Rick Wendland, Naval Postgraduate School « Monterey CA 
60 I Tele: (408) 646-2165 

70 I 

80 CLEAR SC:REEN 

90 PRINTER IS CRT 

100 PRINT ’’Program: CAL_READ_PR1” 

110 PRINT 

120 PRINT ” 

130 PRINT ” 

lAO PRINT ” 

150 PRINT 

160 PRINT ” 

170 PRINT ” 

180 PRINT ” 

190 PRINT ” 

200 PRINT ” 

210 PRINT ” 

220 PRINT ” 

230 ! 

2A0 INPUT ’’Display results to CRT or PRINTER? (0-CRT 1-PRINTER)” .Results 
250 IF Results-1 THEN 
260 PRINTER IS 711 
270 END IF 

280 CONTROL 9. 5; 3 tSet DTR & RTS to active for CAL2000 configuration 

290 INTECtER Error, Value 
300 REAL Preseure(l:7) 

310 DIM CoanandjDode$(l:7) (2] ,Pressure$C5] 

320 Coomend^mode$(l)-”NH” 

330 CooiBand_mode$(2)«”NM” 

3 AO Commend_mode$(3)-”NL” 

350 CooiDend_mode$(A )«**ZO” 

360 Cooinand_nioda$(5)"”PL” 

370 Coiiinand_roode$(6)*”PM” 

380 Cooinand^modaS(7)"”PH” 

390 ON ERROR GOTO Find^error 

AOO OUTPUT 9;”IC”;CHRS(13);END llnitlalire CAL2000 

AlO WAIT 1.5 

A20 Send coimand: ! 

A30 FOR I-l TO 7 

AAO OUTPUT 9;Conmand_modeS(I);CHRS(13);END 

A50 WAIT 1.5 IWalt time to allow calibrator stabilization 

A60 OUTPUT 9;”RP”;CHRS(13);END 

A70 ENTER 9 USING SD. 5DESZZ.K” ; Pressure( I) ; Pressures 

A 80 GOTO No^error 

A 90 Find^error: I 

500 STATUS 9. 10; Error 

510 STATUS 9. 6; Value 

520 Er ror^codeS-IVALS ( Error . 2 ) 

530 PRINT”’’Registar 10: 

540 PRINT ’’Register 6: 

550 No_arror:l 

560 IDISP ”F2 TO CONTINUE” 

570 I PAUSE 

580 NEXT I 
590 Print^resulta : f 
600 PRINT 
610 PRINT 

620 PRINT ’’CAL2000*. Calibration modes and pressures.” 

630 PRINT 

640 PRINT USING ”2X,K.5X.K” ; ’’Mode” . ’’Pressure (in Hg)” 

650 PRINT 

Figure A20 ZOC- 14 DAS Program: CAL_READ_PR1 



” ; Error_code$ (9,16] 

” ;Value7cHR$( Value) 

! Steps used to determine wait time between 
tCALMOD steps. ZOC output connected to the 
!0-scopa. use stopwatch to measure settling 
I time of dc voltage from ZOC. 



This program sequentially sets the CAL2000 calibration” 
modes and reads the corresponding internal Pressure Standard” 
for that mode.” 



PH 

PM 

PL 

ZO 

NL 

NM 

NH 



Positive high range pressure to CAL(+)” 
Positive mid range pressure to CAL(+)” 
Positive low range pressure to CAL(+)” 
CAL(+) & REF(-) connected together” 
Negative low range pressure to R£F(-)” 
Negative mid range pressure to R£F(-)” 
Negative high range pressure to REF(-)" 
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660 FOR I-l TO 7 

670 PRINT USING ”3X,K, lOX, 3D . AD” ;Command_mode$( I ) , ProssureC I) 
680 NEXT I 
690 Finish: ! 

700 PRINTER IS CRT 

710 DISP ’’Press F2 to continue” 

720 PAUSE 

730 LOAD ”ZOC_MENU”,10 
7A0 END 



Figure A20 (cont) ZOC-14 DAS Program: CAL_READ_PR1 
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f Program: TAflULATE^ZOC 

I Description: Tabulates data compiled from program SCAN_ZCX3_04 . 

DIM Data_discl$[23J 
DIM Data^disc2$[23] 

Input: I 

CLEAR SCREEN 

PRINT "Program tabulates Zoc pressures and calibration data from" 

PRINT "the SCAN_ZOC_05 program." 

INPUT "Zoc # (1.2,3), date (YMMDD), and run # of data to be reviewed: 
CLEAR SCREEN 

Data_filel$-"ZC"&VAL$(Zoc)&Date$&VAL$(Run) 

Data^fi le2$-" ZR"&VAL$ ( Zoc ) &Date$&VAL$ ( Run ) 

Data“discl$-Data_f ilel$&" : , 700 , 0 , 1" 

Data_disc2$-Data_file2$&" : , 700 ,0,1" 

ASSICtN SDatajpathl TO Data_discl$ 

ASSIGN QDatajpath2 TO Data_disc2$ 

REAL N1,N2 

STATUS 0Datajpathl,3;Nl 
STATUS @Datajpath2,3;N2 
ALLOCATE REAL C(N1-1,10) 

ALLOCATE REAL D(1:N2,32) 

ENTER 0Datajpathl;C(*) 

ENTER 0Datajpath2;D(*) 



! Determine number of records 
! Determine number of records 
! Define REAL array of records 
! Define REAL array of records 



INPUT "First port of calibration data to be displayed (0-Exit ):", Port_o 
IF Port_o-0 THEN Finish 

INPUT "Laat port of calibration data to be displayed: ", Port__f 
INPUT ’’Print results to (HIT or Printer (0-<RT l-Printer)?" , Prt 
IF Prt-0 THEN 
PRINTER IS CRT 
ELSE 

PRINTER IS 711 
END IF 

340 Print^reaulta: I 

350 PRINT "Reduced Data Tabulation at 
360 PRINT 



sample rate of" ; 1/C(0 , 0) ; " Hr" 



Zoc ,Date$,Run 



370 FormatltlMAGE K,2X,K,2X,K,2X,K 

380 PRINT USING Formatl ; "Port" , "Sample 1", "Sample 2", "Sample 3" 

390 Format2:IMAGE 4D , 2X, 4D. 3D, 2X, 4D. 3D, 2X, 4D . 3D 

400 I-l !ID Data for a given sampling number 

410 FOR P-Port_o TO Port^f 

420 PRINT USING Format2;P,D(I ,P) ,D(I+1, P) ,D(I+2,P) 

430 NEXT P 
440 PRINT 

450 PRINT "Calibration Data Tabulation for Zoc#"; Zoc 
460 PRINT 

470 PRINT "Pressure voltage readings:" 

480 Format3:IMAGE K, 4X,K, 6X,K, 6X,K, 6X,K,6X,K, 6X,K, 6X,K 

490. PRINT USING Format3 ; "Port" , "NH" , "NM" , "NL" , "ZO" . "PL" . "PM" . "PH" 

500 Format4: IMAGE 3D, X, 3D. 3D, X, 3D. 3D, X, 3D. 3D, X, 3D. 3D, X, 3D. 3D, X. 3D. 3D, X^ 3D. 3D 
510 PRINT USING Format4 ; 0 , C( 0 , 4 ) , C(0 , 5) ,C(0 , 6) ,C( 0 , 7 ) , C( 0 , 8 ) , C( 0 , 9 ) , C(0 , 10 ) 
520 FOR P-Port_o TO Port_f 

530 PRINT USING Format4 ; P.C(P, 4 ) ,C(P. 5) ,C(P, 6) ,C(P, 7 ) ,C(P, 8) ,C(P, 9) ,C(P, 10 ) 
540 NEXT P 
550 PRINT 

560 PRINT "Calibration polynomial coefficients for Zoc#"; Zoc 

570 Formats.- IMAGE K, 8X,K, 16X.K, 16X,K, 16X,K 

580 PRINT USING Formats ; "Port" , "AO" , "Al" , "A2" . "A3" 

590 FOR P-Port_o TO Port_f 

600 PRINT P;TAB(5);C(P,0);TAB(24);C(P,1);TAB(43);C(P,2);TAB(62);C(P,3) 

810 NEXT P 
620 I 

630 ASSIGN QDatajpathl TO ♦ 

640 ASSIGN 9Data_path2 TO * 

650 DEALLOCATE C(*) 



Figure A21 



ZOC-14 DAS Program; 



TABULATE ZOC 
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660 DEALLOCATE 0(*) 

670 I 

680 INPUT “Revletf data or Exit (0»Exit 1-Revlew) .Action 

690 IF Actlon-0 THEN Finish 

700 PRINT 

710 GOTO Input 

720 Finish: ! 

730 PRINTER IS CRT 
7A0 LOAD ”ZOC MENU’MO 
750 END 



Figure A21 (cont) ZOC-14 DAS Program: TABULATE_ZOC 



10 ! Program: LS^PLOT 

20 ! Deacript: Plots calibration results and Least Square curve from 

30 ! data provided by SCAN_ZOC_04 

40 ! 

50 COM /Plot^labels/ REAL Xo.Xf . Yo,Yf ,Dx.Dy,Title$[60] ,X_label$[50 J ,Y_label$[50 I 

60 ! Input variables 

70 CLEAR SCREEN 

80 PRINT "Program: LS^PLOT" 

90 PRINT 

100 PRINT "Program plots the calibration curve from Least Square coefficients" 

110 PRINT "and tha calibration data points contain in tha Calibration Data File." 

120 PRINT 

130 PRINT 

140 PRINT "Press F2 to continue after calibration display is plotted" 

150 PRINT "Press <Shift> <Dump Graph> for printout of plot on the printer” 

160 INPUT "Enter Calibration Data file name: " ,Data_file$ 

170 Loop; ! 



160 

190 
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330 
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500 
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560 

590 

600 
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620 
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640 

650 



input "Enter Port #;",P 

INPUT "Enter min range of pressure reading (in Hg):",Xo 

INPUT "Enter max range of pressure reading (in Hg);”,Xf 

INPUT "Enter min range of Zoc voltage reading (Volts) :",Yo 

INPUT "Enter max range of Zoc voltage reading (Volts ):"«Yf 

INPUT "Plots DUMPED to Think Jet or Laser Jet Printer ; (0-TJ 1*LJ)" , Dump_devico 
IF Dumped evice-1 THEN 
DUMP DEVICE IS 9 
ELSE 

DUMP DEVICE IS 711 
END IF 
! 

Tltle$-"Least Square Plot of CAL2000 Calibration (Port# "AVALS (P)&" )" 
Y_label$-"Volts" 

X^labe IS*" Pres sure (In Hg)" 

Dx*10 I Tic marks per X-axis on plot 

Dy*12 !Tic marks per Y-axis on plot 

CLEAR SCrREEN 
! 

! Load data 

DIM Data_disc3(23J 

Data_disc$-Data_file$&" ; , 700 , 0 , 1” ! Define data transfer path 

ASSIGN §Data_path TO Data_disc3 
REAL N 



STATUS 3Data_path,3;N ! Determine length of data file 

ALLOCATE REAL D(N-1,10) lAllocate an array to accept data 

ENTER SData_path;D(*) !Load data into memory in array D(*) 

! 

! PLot routine — 

CALL Plot !Rountine to display graph background 

FOR X— 3 TO 3 STEP .1 !Plot calibration curve 

Fx-(D(P,0)+D(P,l)*X+D(P,2)*X"2+D(P.3)*X"3) 

PLOT Fx.X 
NEXT X 



Sc~.01 IScale size of plotting squares 

FOR 1-4 TO 10 !Plot Squares around data points 

PLOT D(0, I) ,D(P, I) , -2 !Move pen to data point position 

CALL Square(Xo ,Xf , Yo, Yf , Sc ) ISubrountine to plot squares 

NEXT I 

ASSIGN 0Data_path TO * 

! 

PAUSE 

CLEAR SCREEN 

INPUT "Graph another calibration plot: ( 0-No 1-Yes )", Again 
DEALLOCATE D(*) 

IF Again-1 THEN Loop 
LOAD ”ZOC_MENU",10 
END 



Figure A22 ZOC-14 DAS Program: LS_PLOT 
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t—— — 

SUB Plot 



! Subroutine to display plot screen, less the plots of any curves 



! 



for the specified variables In the COM /Plot_labels/ line. 
COM /Plot_labels/ Xo,Xf ,Yo, Yf ,Dx,Dy,Tltle$,x“label$,Y_label$ 



CLEAR SCREEN 
KEY LABELS OFF 
GINIT 

X_range-Xf-Xo 
Y^range-Yf-Yo 
LORG 6 

MOVE 100*RATIO/2,100 
CSI2E 3 
LABEL Titles 
MOVE 100*RATIO/2,0 
LORG 4 

LABEL X_label$ 

DEG 

LDIR 90 
LORG 6 
MOVE 0,50 
LABEL Y^labelS 
LDIR 0 " 

LORG 2 

VIEWPORT 10,90*RATIO,10,90 
FRAME 



! Initialize graph routine 

! Length of X-axis 

I Length of Y-axis 

tCharacter ref pt:top center 

!Move cursor to screen loc for labels 

tSizes labeling 

tPlot title 

!Move cursor to bottom center screen 
tCharacter ref pt:bottom center 
tX-axis label 
tDesig degrees for LDIR 
tSets Y-axis label on end 



tY-axis label 

IReset label to horizontal orientation. 
IChr ref ptileft center 
tSets graph screen size 
!Box around VIEWPORT 



WINDOW Xo,Xf,Yo,Yf fSet axis lengths in VIEWPORT 

AXES X_renge/Dx,Y_range/Dy ,Xo, Yo tAxea Intersect at lower left 

AXES X_range/Dx, Y_range/Dy,Xf , Yf lAxes intersect at upper right 

GRID x][range/Dx.Y2r«nge/Dy,Xo,Yo,Dx.Dy, .001 

CLIP OFF !So labels can print outside VIEWPORT 

CSI2E 3 . 0 ,. 4 tAxea label size 

LORG 6 tNumber X-axis 



FOR I-Xo TO X£ STEP X_range/Dx 
MOVE I,Yo-.01*Y_range 
LABEL USING ”#,K”;I 
NEXT I 

LORG 8 tNumber Y-axis 



FOR I-Yo TO Yf STEP Y_range/Dy 
MOVE Xo-.01*X_range7l 
LABEL USING ”#,K'’;I 
NEXT I 
CLIP ON 



t 

SUBEND 



SUB Square(Xo,Xf,Yo,Yf,Sc) 

t Subroutine to plot squares around the local origin designated 
tby the PLOT statement. 

Xd-Sc^(Xf-Xo) tX displacement for RPLOT 

Yd-Sc*(Yf-Yo)*RATIO !Y displacement for RPLOT 

RPLOT -Xd,Yd,-2 
RPLOT Xd,Yd,-l 
RPLOT Xd,-Yd,-1 
RPLOT -Xd,-Yd,-1 
RPLOT -Xd.Yd,2 
SUBEND 



Figure A22 (cont) ZOC-14 DAS Program: LS_PLOT 
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10 ! Program: ZOC_MENU 

20 ! Description: Menu for utilization of the Zoc-IA and CALSYS 2000. 

30 CLEAR SCREEN 

AO CONTROL CRT, 5; A 

50 KEY LABELS ON 

60 ON KEY 1 LABEL "SCAN 1-3Z0CS" GOTO Scan_l 

70 ON KEY 2 LABEL "READ ZOCDATA" GOTO Read_z 

80 ON KEY 3 LABEL "PLOT ZOCDATA" GOTO Plot 

90 ON KEY A LABEL "READ CALSYS20" GOTO Calsys 

100 ON KEY 5 LABEL "TABULATECAL DATA " GOTO Tab^data 

110 ON KEY 6 LABEL "PLOT CALDATA" GOTO Plot_cal” 

120 ON KEY 7 LABEL "HP69AAA MENU" GOTO Main 

130 ON KEY 8 LABEL "EXIT MENU" GOTO Exit 

lAO I 

150 PRINT "Zoc Electronic Pressure Module Operation Menu" 

160 PRINT 

170 PRINT "Item: Select Function Key" 

180 PRINT 



190 


PRINT " 


Scan 


1-3 ZOC-IA Modules (32 ports ea) 


FI" 


200 


PRINT " 


Read 


reduced data from ZOC-IA module 


F2" 


210 


PRINT " 


Plot 


reduced data from ZOC-IA module 


F3" 


220 


PRINT " 


Read 


CALSYS 2000 calibration pressures 


FA" 


230 


PRINT " 


Read 


tabulated calibration data 


F5" 


2A0 


PRINT " 


Plot 


Calibration data 


F6" 


250 


PRINT 








260 


PRINT " 


HP694AA Main Menu 


F7" 


270 


PRINT " 


Exit 


Menu 


F8" 


280 


! 








290 


Hold; ! 









300 GOTO Hold 
310 Scan_l! ! 

320 CLEAR SCREEN 

330 PRINT "Loading SCAN_ZOC_05" 

3A0 LOAD BIN "/WORKSTATIONs7bIN5. 1/ TRANS" 

350 LOAD BIN " /W0RKSTATI0NS/BIN5. 1/SERIAL" 

360 LOAD "SCAN_ZOC_05" , 10 

370 Plot: ! 

380 LOAD BIN "/WORKSTATIONS/ BINS. 1/GRAPHX" 

390 LOAD "PLOT_DATA",10 

AOO Read_z; f 

A 10 LOAD "READ^ZOC" , 10 

A20 Calsys: ! 

A30 LOAD BIN " /WORKSTATIONS/ B INS . 1/ SERIAL" 

AAO LOAD "CAL_READ_PR1" , 10 

A50 Tab^data: ! 

A60 LOAD "TABULATE^ZOC" , 10 
A70 Plot_cal: ! 

A80 LOAD BIN " /WORKSTATIONS/ B INS . 1/GRAPHX" 

A90 LOAD "LS_PLOT",10 

500 Main: ! 

510 LOAD "HP69AAA_MENU",10 
520 Exit: CLEAR SCREEN 
530 END 



Figure A23 ZOC-14 DAS Program: ZOC_MENU 
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APPENDIX B. ZOC-14 PROGRAM DEVELOPMENT CHRONOLOGY 

The following prargraphs provide a chronological summary 
of the SCAN_ZOC program development using the HP14753A CAT 
Programs. First, the HP6944A manuals required the hardware 
configuration of the I/O cards be determined. Second, review 
of the interface requirements to operate the ZOC-14 units 
identified the binary ZOC address codes to set. The HP69730A 
Relay Output Card then provided the closure contacts required 
to set the required address codes^®. The HP69759A A/D Card 
provided the signal conversion process to read the ZOC-14. 
I/O card edge connectors are fabricated from hardware supplied 
with the I/O cards to provide the interface between the cards 
and the ZOC-14. The program ”SCAN_ZOC_01'' , Figure Bl, 
provides control and reads data voltage values from the ZOC- 
14. SCAN_ZOC_01 was the simplest in the series of development 
programs . 

”SCAN_ZOC_02" , Figure B2, integrated new programming 
features and hardware into a complete data acquisition program 
for utilizing one ZOC-14. The significant features were, 

♦ segmenting the main program into "blocks" of routines 

♦ utilizing arrays for data processing 

^® Refer to Ref. 2 6 for details on the Relay Output Card. 
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♦ hardware integration of the CALSYS2000 

♦ integration of the Buffer and Timer Functions 

♦ data reduction using Least Squares calibration curve 
fitting 

♦ data storage to the hard drive using BUFFER arrays. 

This program did not utilize the Zero Operate and Calibrate 
method. Calibration data were first collected and stored in 
a BUFFER array. Raw pressure data were then collected and 
retained in the HP69791A Memory Card. Calibration data were 
reduced using the Least Squares routine. The calibration data 
were then transferred to the hard drive calibration data file. 
Raw pressure data were extracted from the memory card, 
reduced, and stored on the hard drive reduced-pressure data 
file. 

BUFFER arrays were used for the high speed data handling 
capabilities. A data transfer was initiated with a buffer and 
the computer executed the next line without waiting for the 
transfer to complete. This process allowed data transfer 
while the computer was performing the next command, thereby 
minimizing processing time. 

SCAN_ZOC_02 did not control the CALSYS2000. Control was 
provided by a separate 386 desk top computer with a modem 
connected to the CALSYS2000 through the computer's RS-232C 
port. Interfacing the HP9000 with the CALSYS2000 required 
resolution of RS-232C data stream handling techniques. 
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”SCAN_ZOC_03'' , Figure B3, introduced new features. Over 
SCAN_ZOC_02, the new features were; 

♦ the use of subroutines and the CASE statements to provide 
multiple ZOC-14 interfacing into the data acquisition 
system. 

♦ incorporating full control of the CALSYS2000 using HP9000 
commands . 

The techniques to control the CALSYS2000 are discussed in 
section II.B.2.d. 

”SCAN_ZOC_04” , Figure B4, incorporated the following 
additional features, 

♦ incorporation of a second ZOC-14 into the process to 
validate multiple ZOC-14 operation 

a command lines to handle a second CALMOD 2000 

♦ incorporation of the Zero Operate and Calibrate principle. 

The command line to operate a second CALMOD did not interfere 
with the current CALSYS2000 operation since this command used 
an address character ”2'' and the installed CALMOD only 
responded to address character "1". 

Integration of the "Zero Operate and Calibrate” prihciple 
required collecting measured pressure data followed by 
calibration data. This process posed a memory storage problem 
for multiple ZOCs. The problem was rectified by transferring 
the raw data to a hard drive data file for recall off-line. 
Three advantages were associated with this technique: 
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1. Prograiming simplification, by not having to identify raw 
and calibration data separately on the memory card. 

2 . Additional data collection capacity was made available by 
sequential utilization of the memory card. 

3. Multiple data and calibration runs could be conducted 
which were limited only by the hard drive storage 
capacity. 

Data reduction could be accomplished at any later time, 
providing considerable flexibility. It is to be noted, 
however, that sufficient space on the hard drive was required 
to be set aside to store the reduced data. The user must 
manage hard drive space when acquiring large quantities of 
data. Transfer of raw and calibration data to the floppy disk 
is one solution. This would require the user to generate a 
transfer program similar to the FILE_XFER program. Figure D17, 
on the /UTILity directory. 

The Scan Frequency input (1-100,000 Hz) for the 
SCAN_ZOC_02, SCAN_ZOC_03, and SCAN_ZOC_04 programs was 
improperly implemented. The Timer Function required that a 
specified ••Period” be input to define the length of the "step" 
or logic-high portion of the square wave trigger output^^. 
The programs previous to SCAN_ZOC_05 used the reciprocal of 
the Scan Frequency as the Period to be input. This resulted 
in sqpaare wave periods twice the intended value. SCAN_ZOC_05 
correctly adjusts the Scan Frequency input used to define the 



Ref. 15 defines the input variables for the Timer 

Function. 
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Timer Function Period value, changing the input frequency 
range to ”1-50,000 Hz”. In SCAN_ZOC_05 the Scan Frequency 
input value is first inverted, then the resulting period is 
divided by two to obtain the Timer Period value. In the first 
three programs this division by two was omitted and thus the 
programs gave a two-fold decrease in the data sampling rate. 
This error was discovered during the development of the 
PLOT_DATA program. Figure A20. The program plots reduced 
pressure data versus time for a specified ZOC port number. 
The detected error was detected when the plot showed only half 
the number of data points for the calculated time span. That 
SCAN__ZOC_05 uses the correct Timer Period value was verified 
by the PLOT_DATA program. 
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Program: SCAN_Z(X^__0 1 

Description: Application program to operate HP69AAA collecting voltage 
readings from a ZOC using HP69AAA cards. 

Program provides voltage reading from a single ZOC for a 
specified port number 1~32. 

This program was primarily an instruction aid to learn about 
HP69AAA operation and ZOC operation. 



Hardware: 



Notea: 1. 



HP69AAA Multi-processor 

-(1) Relay Output Card (HP69730A) 

-(1) 500 kfl 2 A/D Card (HP69759A) 

(1) ZOC-IA 32 port Electronic Pressure Scanning Module 

ZOC address driven by Relay Output card connecting ZOC's 
AO-AA leads to the Relay Output card's edge connector: 



ZOC 

AO 

A1 

A2 

A3 

AA 



Relay Contact 
A 
C 
E 
H 
K 



2 . 



5. 



Relay Contacts 1,3, 5, 7, & 9 were connected together and 
tied into ZOC* 8 ground wire to complete the address circuit. 
(Ref ZOC-IA Instruction Manuel dwg 8329 sht 3 of 3) 

ZOC's Output Plus lead wea connected to A/D edge card 
connection W, and ZOC Output Common connected to A/D Y 
(Ref HP89759A Manuel pg 2-3, fig. 2-1) 

ZOC powered by OA-2 Op Amp Designer intexmel power supply. 
CALSYS2000 sets the different ZOC modes through e pneumatic 
switch matrix. CALSYS2000 defaults to the Zero Operate mode 
when energized providing CTL2 (Px CTL) control pressure to the 
ZOC, and allow senor pressure readings of any of the 32 ports. 
A by-pess valve is installed between CALSYS2000 PSC and 
CAIMOD to minimized Nitrogen usage by closing the valve. 

CALMOD is not operative until external ASCII commands are 
provided via RS_232C cable to the CALMOD following CALSYS2000 
energizing . 



LOADSUB ALL FROM 
LOADSUB ALL FROM 



•CONFIGURE” 

•LIBRARY5.1” 



COM /Isascom/ INTEGER X(l;1106) 

CO! /Isaa^heep/ Iaas_heep( 1000) 

COM /Names/ Zoc^addreas , Zoc_preasure 
Configure ( ”Ask_me” , ”ZOC_CONFIG_01” ) 

! - — 
System^init 



! These two commands must be initated 
!to append required SUB and CSUB 
! routines to the end of this program 



I Identify: Relay Output, A/D 
!Load Configuration File, and 
! request for file review/alteration. 
! Initialize Relay Output and A/D 



BODY OF APPLICATION PROGRAM 



REAL Port_roading . Port_req 

INPUT “Enter Port (1-32): ”,P*ort_req ! Input port # 
Output(Zoc_address , 32-Port_req) ! Select port # by 

Input ( Zoc_preaauro, Port^roading) IRead ZOC voltage 



’’Port ; Port_req; ” reading: " ; Port^reading 



Relay Output 
value from A/D 



560 


{ 


570 


PRINT 


580 


1 


590 


STOP 


600 


1 


610 


1 


620 


END 



END OF MAIN PROGRAM 



Figure B1 Development Program: SCAN_ZOC_01 
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10 ! Program: SCAN_Z0C_02 

20 ! Description: Application program to operate HP69A^A collecting pressure 

30 ! readings from one ZCXT-IA 32 port module using the CAL2000 

40 ! to provide calibration data, reduce raw pressure data and 

50 ! , store data to the hard drive. 

60 ! Hardware: HP6944A Multi-processor 

70 ! -500 kHz A/D Card (HP69759A) 

00 J -High Speed Memory Card (HP69791A) 

90 ! -Timer/Pacer Card (HP69736A) 

100 ! -Counter Card (HP69775A) 

110 ! CAL2000 Calibration Module 

120 ! ZOC-14 32 port Electronic Pressure Scanning Module 

130 I Note: This program utilizes only one (1) Zoc Module. 

140 I 

150 ! Buffer Memory: 65536 16-bit data words in HP69791A 
160 ! Timor: Maximum 32676 counts for one HP69775A 
170 ! 

100 COM /lasscom/ INTEGER X(l:1106) 

190 COM /Isss^heap/ Isss_heap( 1000 ) 

200 COM /Names/ Relay , Buff er, Adel, Timer 

210 Conf iguroC "Menu^of f " , ”ZOC_CONFIG_02” ) 

220 !Conf iguroC **Ask_mo** , '•ZOC_CONFIG_02*' ) 

230 ! 



240 Body; ! 



BODY OF PROGRAM 



250 ! 

260 Input_variables : ! 
PRINT '* Program:’* 
PRINT ’* 

PRINT •* 

PRINT ** 

PRINT *• 

PRINT •* 

PRINT 
PRINT 
PRINT 



INITIAL PARAMETERS 



270 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
300 
390 
400 
410 
420 
430 
440 
450 
460 
470 ! 

400 Cal initial 



- Scans a single Zoc-14 module with 32 pressure sensing ports." 

- Stores reduced data on the hard drive ( : , 700 , 0 , 1) . '* 

~ CAL2000 Calibration Module used for the reference pressure standard. 

- Raw pressure data reduced using calibration data from CAL2000" 
and data from Zocs in the calibration mode.'* 



Input variables: Scan frequency (1-100,000 Hz)** 
Samples per Port (1-1021)'* 



! 

I Max speed of HP system is Period-0.000002 sec. or 500 kHz. 

! 

PRINT 

INPUT "Enter data rate ( 1-lOOkHz) ; ,Hz 

INPUT "Number of samples per port (1-1021): " , Sample^number 

Period-l/Hz 

PRINT 

PRINT "Data acquisition rate: 1/Period; ’* Hz'* 

"Number of samples per port: ** ,Sample_number 
"Total raw data acquisition time: " , Period*Sample_number*32; ’ 



PRINT 

PRINT 



!- 



CALIBRATION SET-UP 



490 


t 






500 


REAL Cal(l:1120) 


! Calibration collection 


array for 


510 




i 5 samples per port, 7 calibration 


520 




! runs using CAL2000. 




530 


REAL Zoc_cal(32, 10) 


! Calibration data array. 


Format ; 


540 


Zoc_cal(0 . 0)-Period 






550 


Zoc_cal(0, 1)-Sample_number 






560 


1 






570 


! For ports i-1 to 32 






500 


! Row 0: 0 0 0 0 NH NM NL ZO 


PL PM PH (pressure Hg. ) 




590 


! Row i: AO A1 A2 A3 NH NM NL 


ZO PL PM PH (LS coef. press volts) 


600 


! LS coef are Least Squares curve fit coef for third order 


polynomial 


610 


1 






620 


Calibrate-1 


! Set calibration run 




630 


Count- 160 


! Set count to collect calibration < 


640 


Index-1 


! Set index for cal data 


collection 


650 


PRINT 







Figure B2 



Development Program: SCAN_ZOC_02 
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660 PRINT ’’Ensure CAL2000 is on-line and initialized” 

670 PRINT 

680 PRINT "Set CAL2000 calibrate mode (sequence: NH , NM, NL , ZO , PL , PM, PH) ’’ 
690 PRINT 

700 Cal^routlne: ! 

710 INPUT "Read RP value, and enter Zoc_cal(0 , Index+3 ) 

720 PRINT "Secondary Pressure Standard: ’’; Zoc_cal(0 , Index+3 ) 

730 » 



740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 



Scan_zocs: ! 

!Note: Zoc address driven by Counter Card binary output at edge connection. 
! Calibration routine collects 5 samples per Zoc port. 

! Raw data collection follows calibration collection routine. 



! Set Timer wait time to +10 secs. 

! Initialize Timer system 
! Set Wait_for period of xx secs. 

! Set Count number into Timer 
! Set Timer pulse length in secs. 

! Initialize Buffer for data storage 
! Start data sample collection 
! Data samples stored in Memory System 



Walt_tlme-INT(Count*Period)+10 
Inlt (Timer ) 

Set_timeout (Timer ,Walt_tlme ) 

Set^count (Timer , Count ) 

Set_period( Timor , Period) 

Inlt(Buffer) 

Start(Timer ) 

Walt^for (Timer ) 

! 

! Collect calibration data from Memory System 
IF Callbrate-0 THEN Reduce_cal_dat 

Input_rblock(Buffor ,Cal(^) , 160, (Index-l)*160) ! Collect cal run data 
Index-Index+1 

IF Index<8 THEN Cal^routlne ! Loop cal data collection runs 

! 

! Collect raw data initialization 
CLEAR SCREEN 

PRINT "Reset Zoc mode to read pressure data*' 

DISP "Press F2 to continue" 

PAUSE 

CLEAR SCREEN 

PRINT "Collecting raw pressure data." t Set parameters to collect raw data 
Calibrata«0 

Count *S amp le^number *32 ! Set Count as function of sample number 

! and number of port readings (32) on 
! Zoc for raw data collection. 

GOTO Scan zocs ! Raw data run. 

! 



1070 ! End of Zoc scan routine 

1080 Reduce_cal_dat: ! REDUCE CALIBRATION DATA 

1090 ! Routine to reduce Cal(*) into Zoc_cal(I,J) 

1100 ! 

1110 REAL A(3 ,3) ,B(3) ,C(3) ,Sum x(6),A inv(3,3) ! Least Square reduction arrays 
1120 PRINT 

1130 PRINT "Reducing calibration data." 

1140 FOR J-4 TO 10 ! Cal runs: NH. NM. NL. ZO. PL. PM. PH 

1150 FOR I»1 TO 32 ' ! Zoc ports per calibration run 

1160 FOR K"0 TO 4 ! Number of samples per run 

1170 Zoc_cal(I, J)=Zoc_cal(I,J)+Cal(I+K*32+(J-4)*160) 

1180 NEXT K 

1190 Zoc^caK I , J)-Zoc^cal( I , J) /5 ! Average of 5 samples per port I 

1200 NEXT I 

1210 NEXT J 
1220 ! 

1230 Least^squares : ! 

1240 ! Calibration data reduction using Least Squares Polynominal fitting. 

1250 ! 

1260 FOR K“1 TO 32 I Loop for each port 

1270 ! 

1280 MAT C- (0) 

1290 MAT Sum_x- (0) 

1300 ! 
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FOR J-1 TO 6 ! Routine to reduce Individual port cal 

FOR I"4 TO 10 ! data into elementa to a power 

Sum_x( J)-Sum_x( J)+Zoc_cal(K, I )^J 
NEXT I 
NEXT J 

! 

FOR I-O TO 3 ! Derive A array 

FOR J-0 TO 3 

A(I, J)-Sum_x(I+J) 

NEXT J 
NEXT I 
A(0,0)-7 

! 

FOR J-0 TO 3 I Derlva C array 

FOR 1-4 TO 10 

C(J)-C(J)+Zoc_cai(K,I)"J*Zoc_cal(0,I) 

NEXT I 
NEXT J 
I 

MAT A_lnv- INV(A) 

MAT B- A_lnv*C 

f 

I 
! 

I 

Zoc_cal(K,0)-B(0) 

Zoc*cal(K,l)-B(l) 

Zoc”cal(K,2)-B(2) 

Zoc*cal(K.3)-B<3) 

I 

NEXT K 
I 

Data^tranafar: ! TRANSFER DATA FM MEMORY SYSTEM TO HARD DISC - 

I Routina transfers data from Memory System to hard drive via buffar blocks 
I 

I Transfar calibration data and coaffi dents to hard drive 
DIM Data_discl$[23 ] ! Define string for data file name 

Data_fllel$-**ZOC_CAL" 

Data_dlscl3-Data_fllal$&" : , 700,0, 1” 

PURGE Data_discl$ 

CREATE BDAT Data_diacl3 , 33 , 8*11 I Create BDAT file of 11*8 byte 

ASSIGN 8Data_pathl TO Data_discl3 I Aasign path to hard drive 

OUTPUT 9Data_pathl ; Zoc^caK* ) I x33 records and store on hard drive 

ASSIGN 8Data_path2 TO * I Close buffar path 

I 



! B array is matrix of Least Square 

coefficients a0,al,a2,& a3 for polynomial 
aquation fitting calibration data for a 
specified port 

! Collect Least Square coefficients 



t Reducing raw data and transferring data to hard drive 
PRINT 

PRINT "Reducing raw pressure data and transferring data to hard drive." 



INTEGER Data_int(0:32) ! 

REAL Data_raw(0:32) ! 

REAL Data”rad(0:32) ! 

REAL Data”buffer2(0:32) BUFFER ! 

REAL Data_buffer3(0:32) BUFFER ! 

DIM Data_dlsc2$[23J » 

DIM Data_disc3$[23J 
REAL Nd ” 

Data_f 1 le2$-" ZOC^RAW" 

Data flla33-"ZOC REDUCE" 



Data_dlsc2$“Data_flle2S&" : , 700,0, 1" 
Data_dl3c3$-Data_file3$&" : , 700 ,0,1" 
PURGE Data_disc2S 
PURGE Data_disc33 

CREATE BDAT Data_disc2$ , 10 , 8*33 ! 



Extracted INTEGER raw data 
Translated REAL raw data 
REAL reduced data 
Raw data transfer buffer 
Reduced data transfer buffer 
Define string for data file name 



Create BDAT file of 33*8 byte records 

and initial 10 records 

Each record contains one scan of the 
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! 32 port Zoc in REAL pressure values 
! corrected by CAL2000 values 



1960 
1970 

I960 CREATE BOAT Data_disc3$, 10 , 8*33 
1990 ASSIGN @Data_path2 TO Data_dlsc23 I Assign path to hard drive 
2000 ASSIGN @Data_path3 TO Data_disc33 

2010 Count_inblock-32 ! Number of samples per block transfered 

2020 Block_numbor*Count/Count_lnblock ! Number of transfer blocks 
2030 I 

2040 FOR Block**! TO Samplejnumber I Loop routine to transfer data 

2050 ASSIGN 0Buf fer jpathi TO BUFFER Data_buffer2(*) ; FORMAT OFF 

2060 ASSIGN 0Buf fer jpath3 TO BUFFER Data_buffer3(*) ; FORMAT OFF 

2070 Input^iblock (Buff er,Data_int(*),Count_inb lock, 1) ! Load data samples to 

2080 f buffer in blocks 

2090 Translate(Adcl,Data_int(*) ,Data_raw(*) ) ! Load INTEGER data into 
2100 ! REAL data buffer array 

2110 ! 

2120 ! Routine to reduce raw data using polynomial: 

2130 ! 

2140 ! Data_reduce *■ aO + al*x + a2*x*2 + a3*x^3 
2150 ! 

2160 ! where a0,al,a2, & a3 are Least Square coefficients, and x is 
2170 ! the individual port raw data value, 

2180 I 

2190 FOR K**l TO 32 

2200 Data_red(K)**Zoc cal(K,0)+Zoc_cal(K, l)*Data_raw(K)+Zoc_cal(K,2)*Data_raw(K)"2+Zoc_cal(K. 3)*Data_raw(K)'‘ 

2210 NEXT K ” 

2220 ! 

2230 Data_rs[w(0)*Period*(61ock*l) ! Store raw data sample time 

2240 Oeta_red(0)*Period*(Block-l) ! Store reduce data sample time 

2250 ! 

2260 MAT Data_buffer2« Data^raw ! Transfer raw & red data to buffer 

2270 MAT Data buffer3*" Data red 
2280 I 

2290 CONTROL 8Bufferjpath2, 4; (Count_inblock+l)*8l Cloae REAL buffer when full 
2300 CONTROL 0Buff er jpath3 , 4 ; (CountIinblock+l)*8 

2310 TRANSFER 0Buff ar_path2 TO 0Data_path2l Transfer data to hard drive 

2320 TRANSFER SBuff er_jpath3 TO @Data_path3 

2330 ASSIGN 0Buf fer_path2 TO * 

2340 ASSIGN 0Buf fer_path3 TO * 

2350 NEXT Block 
2360 ! 

2370 STATUS 0Data_path3 , 3 ; Nd ! Datarmina data file length 

2380 ASSIGN 0Datajpath2 TO * f Close buffer path 

2390 ASSIGN 0Datajpath3 TO * 

2400 f 

2410- CLEAR SCHIEEN 

2420 PRINT "Calibration data file: " ;Data_filel$ 

2430 PRINT "Raw data file: " ;Data_file2$ “ 

2440 PRINT "Reduced data: ” ; Data_file3$ 

2450 PRINT "Number of records (scans) in " ;Data_file3$ ; " is: ";Nd 
2460 PRINT 

2470 PRINT "Use READ^ZCXT to read data from " ; Data_f ile2$ ; " and ” ; Data_f ile3$ 

2480 PRINT "Use TABULATE_ZOC to read calibration data from " ; Data_f ilelS 

2490 f 

2500 Finish:! 

2510 DISP "Press F2 to continue." 

2520 PAUSE 

2530 LOAD "HP6944A_MENU" , 10 

2540 End_body:! — END OF MAIN PROGRAM 

2550 ! 

2560 END 
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Program: SCAN_ZOC_03 

Description: Application program to operate HP6944A collecting pressure 
readings from 1-3 ZOC-14 32 port modules using the CAL2000 
to provide calibration data, reduce raw pressure data and 
store data to the hard drive. 

Hardware: HP6944A Multi-processors 

-500 kHz A/D Cards (HP69759A) 

-High Speed Memory Cards (HP69791A) 

-Tlmer/Pacer Card (HP69736A) 

-Counter Card (HP69775A) 

CAL2000 Calibration Module 

ZOC-14 32 port Electronic Freaaura Scanning Modules 
! Notes: 1. This program utilizes up to thraa (3) Zoc Modules storing data 
of each Zoc into a saparate buffar Mamory System (HF89791A). 

2, COM /Names lina and BDAT file ZOC_CONFIG_03 must match for this 
program to operate. 

Buffer Memory: 65536 16-blt data words in HP69791A per system 

Timer: Maximum 32676 counts for one HP69775A 

Max speed of HP system is Feriod^O . 000002 sec. or 500 kHz. 



! 

! 

! 

I 
t 

! 

I 

! 

I 
t 
I 

I 
! 

I 
t 
I 
! 

! 

COM /Issscom/ INTEGER X( 1:1106) 

COM /Isss^heap/ Isss_heap( 1000 ) 

COM /Names/ Buffer, Add, Timer 
Conf igureCMenu^of f •’ , ••ZOC_CONFIG_03" 
! Configure < " Ask^me ’* , ” ZOC_CONF IG_03 ” ) 

! 



280 Input : ! - 



INPUT VARIABLES 



290 
300 
310 
320 
■ 330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
480 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 



PRINT "Program: SCAN_ZOC_03” 

PRINT " - Scans 1-3 Zoo-14 Modules (32 pressure sensing ports aach)." 

PRINT " Selected number of Zocs determines the size of stored data files." 

PRINT " - CAL2000 Calibration Module used for the reference pressure standard." 

PRINT " - Raw pressure data reduced using calibration data from CAL2000" 

PRINT ** and dets from Zocs in the calibration mode." 

PRINT " - Stores reduced data on the hard drive <: ,700,0, 1) . " 

PRINT " - Program designed to operate three (3) Memory-A/D Cards simultaneously." 
PRINT 

PRINT "Input variables: Scan frequency (1-100,000 Hz)" 

PRINT " Samples per Port (1-1021)" 

PRINT " Number of Zocs to be used" 

PRINT " Callbration/Raduced data file name ID" 

! 

! COM assigns calibration data array for 3x32 Zoc porta (96 total) 

COM /Zoc^dat/ REAL Zoc_cal(96 , 10 ) BUFFER 
COM /Stats/ REAL Period, Sampla^number 
PRINT 

INPUT "Enter data rata (l-100kHz):",Hz 

INPUT "Number of samples per port (1-1021): " ,Sample_number 
INPUT "Number of Zoc's connected to Multi-programer",Zoc_number 
Perlod*l/Hz 

Walt_for»1.5 ! Walt time for CAL2000 stabilization 

PRINT 

"Data acquisition rate: " ; TAB( 50 ) ; Hz ; " Hz" 

"Number of samples per port : " ;TAB(50 ) ;Sampla_number 
"Number of Zocs to be scanned: "; TAB( 50) ; Zoc_number 
"Total number of ports to be scanned: " ; TAB( 50) ; Zoc_number*32 

"Total calibration data acquisition time TAB( 50 ); Perl od^5^32+( 9*Walt_for ); " 
"Total raw data acquisition tlrae:";TAB(50) ;Perlod*Sample_number*32; " sec." 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
! 

Calibration data 
Format : 

For porta 1-1 to 
Row 0, column 
Row 0, column 
Row 0, column 



array: Zoc_cal(96 , 10 ) 



96 

0: Period 

1: Sample number 

2: Number of Zocs being used 
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I 



Row 0: NH NM NL ZO PL PM PH (pressure Bg. ) 

Row i: AO A1 A2 A3 NH NM NL ZO PL PM PH (LS coef, press volts) 

LS coef are Least Squares curve fit coef for third order polynomial. 

t 

Zoc_cal(0 , 0)-Period 
Zoc_cal(0 , 1)-Sample_number 
Zoc_cal(0 » 2 )*Zoc_number 



"Ensure CAL2000 is on-line, calibration pressure source at 90 psi," 
"and calibrator pressure cut-off valve is open (on back of CAL2000)" 
Press F2 to start data aquisition" 



660 
670 
680 
690 
700 
710 
720 
730 

740 PRINT 
750 PRINT 
760 PRINT 
770 DISP * 

780 PAUSE 
790 ! 

800 Initial_cal: !- 
810 ! 

820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 



CALIBRATION SET-UP 



CLEAR SCREEN 

PRINT "Collecting calibration data." 

REAL Call(1120),Cal2(1120),Cal3(1120)I Calibration data array 



REAL Cal(1120) 

Count*32^5 
CONTROL 9,5;3 
DIM Cooinand_mode$( 1 : 7 ) [2] 
Cotnnand_tDode$ ( 1 )-"NH" 
Connand_modeS ( 2 )*"NM" 
Command^roodeS ( 3 )-"NL" 
Comnand^mod eS ( 4 ) •" ZO" 
Comnand _mod e 3 ( 5 ) • " PL " 
Comnand^tiiod e 3 ( 6 ) - " PM" 
Comnand o>ode3(7 )*"PH" 
OUTPUT 9;"IC";CHR3(13);END 
WAIT Wait for 
t 



! SUB prog call data array 
! Set count to collect calibration data 
I Set DTR & RTS to active for CAL2000 



I Initializes CAL2000 

! Allows CAL2000 pressure to stabilize 



990 Collect^cal^dat: 
1000 I 



I COLLECT RAW CALIBRATION DATA 



1010 I Collect raw calibration data for each CAL2000 setting 
1020 FOR Index-1 TO 7 

1030 CALL Cal2000 (Comroand_mode$( Index ), Index, Wait_£or) 

1040 CALL Scan_zocs (Count , Period) 

1050 FOR Zoc_case-l TO Zoc_number 

1060 SELECT Zoc^case 

1070 CASE 1 

1080 CALL Zoc_dat_cal(Buffer .CalK*) , Index) 

1090 CASE 2 ” ” 

1100 CALL Zoc_dat_cal(Buffer2,Cal2(*), Index) 

1110 CASE 3 

1120 CALL Zdc dat cal(Buf£er3.Cal3(*) , Index) 

1130 END select” 

1140 NEXT Zoc_case 

1150 NEXT Index 
1160 I 

1170 ! Adjust Calibration pressure sign to account for CAL2000/Zoc method 

1180 ! of setting negative calibration pressures. 

1190 Zoc_cal(0 , 4 )— Zoc_cal(0 , 4 ) ! NH adjustment 

1200 Zoc_cal(0, 5)— Zoc_cal(0, 5) ! NM adjustment 

1210 Zoc_cal(0,6)— Zoc_cal(0, 6) ! NL adjustment 

1220 I 

1230 CLEAR SCREEN 

1240 PRINT "Calibration data collection complete," 

1250 PRINT 

1260 PRINT ***** Secure Calibrator pressure valve to conserve Nitrogen ***'• 
1270 PRINT 

1280 PRINT "CAL2000 Calibration modes and pressures (in Hg)t" 

1290 PRINT TAB ( 5 ) ; "NH" ; TAB ( 15 ) ; Zoc_cal (0,4) 

1300 PRINT TAB(5);"NM";TAB(15);Zoc_cal(0,5) 
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PRINT TAB ( 5 ) ; ”NL” ; TAB ( 15 ) ; Zoc^cal ( 0.6) 

PRINT TAB ( 5 ) ; •• ZO“ ; TAB ( 1 5 ) ; Zo c_c a 1 ( 0 . 7 ) 

PRINT TAB(5):“PL“;TAB(15);Zoc_cal(0.8) 

PRINT TAB(5);"PM'*;TAB(15);Zoc_cal(0,9) 

PRINT TAB ( 5 ) ; •’PH’' ; TAB ( 15 ) ; Zoc_cal( 0 , 10 ) 

! 

Collect_raw_dat: !— COLLECT RAW PRESSURE DATA 

PRINT 

PRINT "Collecting raw pressure data." ! Set parameters to collect raw data 
OUTPUT 9;"IC";CHR$(13):END ! Reinitialize CAL2000 

WAIT Wait_for 

Count-Sample_number*32 ! Set Count as function of sample number 

! and number of jXDrt readings (32) on 
! Zoc for raw data collection. 

CALL Scan^zoca (Count, Period) I Collect raw data into Memory System 

PRINT 

PRINT "Raw data collection complete.” 

! 

Raduca_cal_dat: ! REDUCE CALIBRATION DATA - 

? Routine to reduce Cal_(*) into Zoc_cal(I,J) 

! 

PRINT 

PRINT "Reducing calibration data.” 

FOR Zoc^caaa*! TO Zoc_number 
SELECT Zo crease 
CASE 1 

C:ALL Zoc_dat_red(Call(*),l) 

CASE 2 ’ ” 

CALL Zoc_dat_red(Cal2(*),2) 

CASE 3 

CALL Zoc_dat_red(Cal3(*),3) 

END SELECT* 

NEXT Zoo^ease 

! 

Data^tranefer:! TRANSFER DATA FM MEMORY SYSTEM TO HARD DISC 

! Routine transfers data from Memory System to hard drive via buffer blocks 

; 

CLEAR SCREEN 

! Transfer calibration data and coefficients to hard drive 
ON ERROR GOSUB Purga^fila 

INPUT "Enter Calibration and Reduced Data file name ID (11 char max) : " ,Fllo_id$ 
Hard_drive$-” : , 700 , 0 , 1" 

REAL"Nd,Nr 

! 

!— -Transfer calibration data to hard drive 
PRINT "Transferring calibration data to the hard drive." 

DIM 0ata_disclS[23] ! Define string for data file name 

Data_fllel$-”ZC_"&Fila_id$ ! Zoc calibration file name 

File_nameS-Data_fllel3 ! Used for file purging if required 

Data_disc 1$-Data_fi lel$&flard_dr iveS 

CREATE BOAT Data“disclS , 33 , 8*11 ! Create BDAT file of 11*8 byte 

ASSIGN 8Data_pathl TO Data_discl$ ! Assign path to hard drive 

ASSIGN 9Buffer_pathl TO BUFFER Zoc_cal(*) {Assign buffer path 
CONTROL 0Buffer_pathl, 4;8*ll*(Zoc_number*32+l) !Set data file length 
TRANSFER 0Buf f er_pathl TO 8Data_pathl ’Store cal data on hard drive 
STATUS 0Data_pathl, 3 ;Nr ! Number of records in cal file 

ASSIGN 0Buffer_pathl TO * ! Close path 

ASSIGN 0Data_pathl TO * I Close path 

I 

I Reducing raw data and transferring data to hard drive 

PRINT 

PRINT "Reducing raw pressure data and transferring data to the hard drive." 

DIM Data_disc2$(23] ! Define string for data file name 

Data_file2$-"ZR_"&File_id$ ! Reduced data file nam^ 

Flle_namoS=Data_file2S ! Used for file purging if required 
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Data_dlsc2$-Data_flle2$&Hard_drlv0$ 

CREATE BOAT Data_dlsc2$ , 10 , 8*33 ! Create BOAT file of 33*8 byte records 

! and initial 10 records 
f Each record contains one scan of the 
? 32 port Zoc in REAL pressure values 
! corrected by CAL2000 values 

assign 0Data_path2 TO Data_dlsc2$ i Assign path to hard drive 



FOR Zoc_^casa*l TO Zoc_number ! Collect raw data, reduce data and 

SELECT Zoc case ! and store raduca data on hard drive 

CASE 1 



CALL Raw_red_dat(Buffer , l,@Data_path2) 
CASE 2 



CALL Raw red dat(Buffer2,2,§Data_path2) 
CASE 3 " ~ 



CALL Raw red_dat (Buffer3 , 3 ,0Data_path2) 
END select" 



NEXT Zo crease 

! 

STATUS 0Oata_path2, 3;Nd ! Reduced data file length 

ASSIGN @Data_path2 TO * I Close buffer path 

I 

CLEAR SCREEN 

PRINT "Calibration data file: " ;Data_filel$; " containing" ; Nr ; " records." 

PRINT "Reduced data fila: " ;Data_file2$; '* containing" ;Nd; " records." 

PRINT 

PRINT "Fllas " ;Data^fllal$; " and " ;Data^file2$j " ara located on hard drive " ;Hard_drive$ 
PRINT "Data reading programs available from HP6944A manu." 
t 

Finish: t 

DISP **Preaa F2 to continue.** 

PAUSE 

LOAD **QP8944A_MENU",10 
Purge file: t 
IF ERRN-54 THEN 

PURGE Flle_nameS&Hard_drlva$ 

END IF " 

RETURN 

! 

END 

I Routine to operate CAL2000 
SUB Cal2000 (Commands, I ,Wait_period) 

COM /Zoc^dat/ REAL Zoc_cal(98 , 10) BUFFER 

DIM PressureS(5] I Reejuirad to read data stream 

OUTPUT 9 ; Commands ;CHRS( 13 ); END I Sets calibration mode 
WAIT Wait_parlod I Allow CAL2000 to stabilize 

OUTPUT 9; "RP" ;CHRS( 13 ) ;END ! Reads CAL2000 calibration pressure 

ENTER 9 USING "#, SD . 5DESZZ.K" ; Zoc calCO, 1+3) , Pressures 
SUBEND 



! - 

! Routine to operate HP6944A to collect pressure data and store in Memory 
fNote: -Zoc address driven by Counter Card binary output at edge connection 
f through a 7404 open collector DTL/TTL located in an auxiliary box. 



SUB Scan^zocs (Count, Period) 

COM /Names/ Buffer .Add, Timer 

Walt_tlme-INT(Count*Perlod)+10 

Init(Tlmer) 

Set_tlmeout(Tlmer , Walt^tlme ) 
Set_count (Timer , Count ) 

Set jperiod( Timer , Period) 

Init (Buf f er ) 

!INIT(BUFFER2) 

UNIT (BUFFERS) 



Set Timer wait time to +10 secs. 

Initialize Timer system 

Set Walt^for period of xx secs. 

Set Count number into Timer • 
Set Timer pulse length in secs. 
Initialize Buffer for data storage 
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Start(Timer) ! Start data sample collection 

Walt_£or (Timer ) ! Data samples stored in Memory System 

SUBEND 

!— — 

! Routine to raad raw calibration data from Memory System 
SUB Zoc_dat_cal(Buf£,Cal(*) ,1) 

Input_rblock(Bu£f ,Cal(*), 160, (I-l)*160+l) 

SUBEND ” 

! 

I Routine to raduce Cal_(*) Into Zoc_cal(I,J) 

SUB Zoc^dat_rad(Cal(*) ,Zoc ) 

COM /Zoc^dat/ REAL Zoc_cal(96 , 10) BUFFER 

REAL A(3,3) ,B(3) ,C(3) ,Sum_x(6) ,A_lnv(3,3) ! Laaat Square reduction arrays 
REAL Cal3c(256,5) 

FOR J-4 TO 10 ! Cal runs: NH.NM.NL,ZO,PL.PM,PH 

FOR 1*1 TO 32 ! Zee ports par calibration run 

Il-(Zoc-l)*32+I 

FOR K*0 TO 4 ! Number of samples par run 

Zoc^caKIl, J)-Zoc_cal(Il, J)+Cal(I+K*32+(J-4)*160) 
Calx(I+(J-4)*32,K+l;-Cal(I+K*32+(J-4)*160) 

NEXT K 

Zoc^caldl, J)*Zoc^cal(Il, J)/5 I Avaraga of 5 samplaa par port I 
NEXT I 
NEXT J 

I 

(30T0 Least_squares 
! Print raw calibration data 
PRINTER IS 711 

PRINT '’Raw calibration data for Zoc#**;Zoc 
PRINT 

Format: IMAGE 3D,2X,3D.3D,2X»3D.3D,2X»3D.3D,2X,3D.3D,2X»3D.3D 
FOR K-1 TO 7 
PRINT "RP--;K 
FOR J-1 TO 32 
I-J+((K-1)*32) 

PRINT USING Format; J,Calx(I,l)»Calx(I,2),Cal3C(I,3) ,Calx(I,4),Calx(I,5) 
NEXT J 
NEXT K 

PRINTER IS CRT 

! 

Least_squaras : ! 

! Calibration data reduction using Least Squaras Polynominal fitting. 

I 

FOR K-1 TO 32 ! Loop for each port 

Kl-(Zoc-l)*32+K 

! 

MAT C- (0) 

MAT Sum^x- (0) 

! 

FOR J-1 TO 6 ! Routine to reduce individual port cal 

FOR 1-4 TO 10 I data Into elements to a power x"J 

Sum_x( J)-Sum_x( J)+Zoc_cal(Kl, I)^J 
NEXT T “ “ . 

NEXT J 

! 

FOR I-O TO 3 ! Derive A array 

FOR J-0 TO 3 

A(I, J)-Sum_x(I+J) 

NEXT J 
NEXT I 
A(0,0)-7 

f 

FOR J-0 TO 3 ! Derive C array 

FOR 1-4 TO 10 

C(J)=C( J)+Zoc_cal(Kl, I)"J*Zoc_cal(0, I) 
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NEXT I 
NEXT J 
I 

MAT A_inv* INV(A) 
MAT B- A inv*C 



Zoc_cal(Kl,0)-B(0) 

Zoc_c«1(K1,1)-B(1) 

Zoc“cal(K1.2)-B(2) 

Zoc“cal(Kl,3)-B(3) 

NEXT K 
SUBEND 



1 B array is matrix of Least Square 

coefficients a0,al,a2,& a3 for polynomial 
equation fitting calibration data for a 
specified port 

! Collect Least Square coefficients 



SUB Raw_red_dat (Buff , Zoc , @Data_path2) 

! Routine to reduce raw data using polynomial: 

COM /Zoc dat/ REAL Zoc_cal(96, 10) BUFFER 
REAL Red“data(32) BUFFER 
REAL Raw_data(32) 

COM /Stats/ REAL Period , Samp le^number 

FOR Block“l TO Sample^number 1 Loop routine to transfer data 

ASSIGN 0Buffer_path2 TO BUFFER Red_data(*) ; FORMAT OFF 
Input_rblock(Buff ,Raw_data(*) ,32, 1) ! Load data samples 
S amp le_time*B lock ♦Period 

! 

! Rad^data - aO + al*x + a2*x^2 + a3*x^3 
! 

t where a0,al,a2, & a3 are Least Square coefficients, and x is 
t the individual port raw data value. 

1 

FOR K-1 TO 32 
Kl-(Zoc-l)*32-»'K 

Red_data(K)-2oc_cal(Kl,0)+Zoc_cal(Kl,l)*Raw_data(K)+Zoc_cal(Kl,2)*Raw_data(K)^2+Zoc_cal(Kl,3)*Raw_dat 

NEXT K 



1 

Red_data(0 )“Sample_tiroe ! Store reduce data sample time. 

t 

CONTROL 0Bufferj?ath2,4;(32-H)*8 I Close buffer when full 
TRANSFER QBuff er__path2 TO 0Data_path2 I Transfer data to hard drive 
ASSIGN 9Buffer_j?ath2 TO ♦ 

NEXT Block 
SUBEND 



! 



Figure B3 (cont) Development Program: 



SCAN ZOC 03 



137 



10 I Program; SCAN_ZCX:_0A 

20 ! Description: Application program to operate HP69AAA collecting pressure 

30 ! readings from 1-3 ZOC-14 32 port modules using the CAL2000 

40 ! to provide calibration data, reduce raw pressure data and 

50 ! store data to the hard drive. 

60 ! Hardware: (1) HP6944A Multi-processors 

70 ! - (2)* 500 kHz A/D Cards (HP69759A) 

80 ! - (2) High Speed Memory Cards (HP69791A) 

90 ! - (1) Timer /Pacer Card (HP69736A) 

100 ! - (1) Counter Card (HP69775A) 

110 ! (1) HiScan CAL2000 Calibration Module 

120 ! (1) ZOC-14 32 port Electronic Pressure Scanning Modules 

130 ! Hotes: 1. This program utilizes up to three (3) Zoc Modules storing data 

140 ! of each Zoc into a separate buffer Memory System (HP69791A). 

150 ! 2. COM /Names/ line and BOAT file ZOC_CONFIG_04 must match for 

160 ! this program to operate. 

170 ! 3. HiScan requires a short period to stabilize before reading 

180 ! the pressure valves. The Walt^for statement (line 340) sets this 

190 ! wait period in seconds. Adjustment of the variable my be required 

200 ! (.3 additional Zees are Integrated into the Data Acquisition System. 

210 ! 4. HiScan currently configured for one (1) calibrator. This 

220 I program is written to operate one (1) or two (2) calibrators. 

230 I 

240 ! Buffer Memory: 65536 16-blt data words in HP69791A per system 

250 I Timer: Maximum 32676 counts for one HP69775A 

260 ! Max speed of HP system is Perlod-0 . 000002 sec. or 500 kHz. 

270 ! 

280 COM /Issscom/ INTEGER X( 1:1106) 

290 COM /Isss^heap/ Isss_heap(1000) 

300 COM /Names/ Bufferl, Adel, Buffer2,Adc2, Timer 

310 !Conf IgureC '•Menu_of f , **ZOC_CONFIG_04** ) 

320 Configure r’Ask^me’* , •*ZOC_CONFIG_04’* ) 

330 I 

340 Walt for«1.5 I Wait time for HiScan stabilization 

350 ! 
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Input: ! 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



INPUT VARIABLES — 

'Program: SCAN_ZOC_04*' 

- Scans 1-3 Zoc-14 Modules (32 pressure sensing ports each)." 

* - Uses Zero Operate Calibrate (ZOC) principal:" 

- Collects raw pressure data (Zero Operate)" 

' - Collects calibration data (Calibrate)" 

- Reduces raw data and stores data on hard drive :, 700, 0,1" 

’ - HiScan Calibration Module used for the reference pressure standard.' 

- Raw pressure data reduced using calibration data from HiScan" 
and Zocs in the calibration mode." 

' - Program designed to operate up to three (3) Memory-A/D Cards" 

simultaneously. COM /Names/ line must match Multi -progranmer" 
(HP6944A) configuration. ZCX_CONFIG^04 file must be updated" 
to the revised COM /Names/ line when altered." 



Input variables; Scan frequency (1-100,000 Hz)" 

Semples per Port (1-1021)" 

Number of Zocs and their capacity" 

Calibration/Reduced data file name ID" 

j 

! COM assigns calibration data 'array for 32 Zoc ports and standard values. 

COM /Zoc^dat/ REAL Zoc_call (33 , 10 ) BUFFER, Zoc_cal2( 33 , 10) BUFFER, Zoc_cal3 (33 , 10 ) BUFFER 
COM /Stats/ REAL Period , Sample^number ,Walt_for, INTEGER Cal_mod_ld(3 ) 

MAT Zoc_call- (0) 

MAT Zoc_cal2- (0) 

MAT Zoc_cal3- (0) 

PRINT 

INPUT "Enter data rate ( 1-lOOkHz ) : " , Hz 

INPUT "Number of samples per port (1-1021): " , Sample_number 
INPUT "Number of Zoc’ a connected to Multl-programer" , Zoc^number 
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C a l_mod_i d ( 0 ) “ Zo c_numb e r 
FOR Zoc_case*l TO Zoc_numbor 
SELECT Zoc_caao 
CASE 1 

INPUT "Enter Calibration Module number set for Zoc #1 (Enter 1 or 2) : " ,Cal_mod_id( 1) 
CASE 2 

INPUT "Enter Calibration Module number sot for Zoc #2 (Enter 1 or 2) : " ,Cal_mod_id(2) 
CASE 3 

INPUT "Enter Calibration Module number set for Zoc #3 (Enter 1 or 2) t " ,Cal_mod^id(3 ) 
END SELECT 



NEXT Zoc^case 

INPUT "Enter Calibration and Reduced Data file name ID (10 char max) : " ,File_id$ 
Period-l/Hz 



PRINT 

PRINT "Data acquisition rate: " ;TAfl(50);H2;" Hz" 

PRINT "Number of samplea per port : " ;TAB(50) ;Sample_number 

PRINT "Number of Zocs to be scanned: "; TAB (50) ; Zoc^number 

PRINT "Total number of ports to be scanned: " ;TAB( 50 ); Zoc_numbor *32 

PRINT "Total raw data acquisition time : " ; TAB(50 ) ; Perlod*Samplo_number*32; " sec." 

PRINT "Total calibration data acquisition tlme:";TAB(50) ;Poriod*5*32+(7*Wait_for) ;" sec. 
! 



Zoc^call (0 , 0 )-Period 

Zoc_call(0 , 1)-Sample_number 

Zoc”call(0.2)-1 

Zoo^oall ( 0 , 3 )-Cal_inod_id( 1 ) 

Zoc_cal2(0 , 0)-Perlod 
Zoe_caI2(0 , 1 )-Sample_number 
Zoc_cal2(0,2)-2 
Zoc_eaI2 (0,3 )K^al_mod^ld ( 2 ) 

Zoe_oal3 (0 , 0 )*Perlod 
Zoc_cal3(0 , D^Samplejnumber 
Zoc_cal3(0,2)-3 
Zoe_eal3 (0,3 )^al jnod^ld ( 3 ) 

! 

PRINT 

PRINT "Ensure HiScan is on-line, calibration pressure source at 90 psi," 
PRINT "and calibrator pressure cut-off valve is open (on back of HiScan)" 
! 
f 

CONTROL 9, 5; 3 ! Set DTR & RTS to active for HiScan 

OUTPUT 9;VAL3(1);"IC";CHR3(13);END! Initialize Calibrator module #1 
OUTPUT 9;VAL$(2);"IC";C:HRS(13);END! Initialize Calibrator module #2 
WAIT Wait^for ! Allow HiScan to set Zoca 

! 

DISP "Press F2 to start data acquisition" 

PAUSE 

! 



1130 CoUect_raw_dat: !— COLLECT RAW PRESSURE DATA 

1140 CLEAR SCREEN 
1150 PRINT 

1160 PRINT "Collecting raw pressure data." 

1170 Count“Sample_number*32 ! Set Count as function of sample number 

1180 ! and number of port readings (32) on 

1190 ! Zoc for raw data collection. 

1200 CALL Scan_zocs(Count, Period) ! Collect raw data into Memory System 

1210 PRINT 

1220 PRINT "Raw data collection complete." 

1230 BEEP 
1240 ! 



1250 Raw^data^xfer: ! TRANSFER RAW DATA FM MEMORY SYSTEM TO HARD DISC — 

1260 PRINT 
1270 ! 

1280 FOR Zoc_caso-l TO Zoc^numbor ! Collect raw data, reduce data and 

1290 SELECT Zoc_case ! and store reduce data on hard drive 

1300 CASE 1 
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1310 CALL Raw_dab (Buffer 1, 1 ,Sample_number) 

1320 CASE 2 

1330 CALL Raw_dab(Buffer2, 2,Sampl0_nufnber) 

1340 CASE 3 

1320 CALL Raw_dat(Buffer3 ,3,Sample_number) 

1360 END SELECT 

1370 NEXT 2oc_case 
1380 ! 

1390 Inltial_cal: ! CALIBRATION SET-UP — - 

lAOO ! Calibration data array for each Zoc: 2Soc_caI_(33 , 10) 

1410 ! Format: 

1420 I For porta 1-1 to 33 
1430 ! Rovf 0, column 0; Period 

1440 ! Row 0» column 1: Sample mrniber 

1420 ! Row 0, column 2: Z^c # 

1460 ! Row 0, column 3: Calibrator module ID <1-20 pal 2-12 pal) 

1470 ! Row 0: NHNMNLZOPLPMPH (praaaura Hg.) 

1480 ! Row 1: AO A1 A2 A3 NH NM NL ZO PL PM PH as coef.preaa volta) 

1490 t LS coef are Least Squares curve fit coef for third order polynomial. 
1200 ! 

1210 PRINT 

1220 PRINT ‘'Collecting calibration data.’* 

1230 REAL Call(1120),Cal2(1120),Cal3(1120)! Calibration data array 
1240 Count-32*2 ! Sat count to collect calibration data 

1220 DIM ConiDand_mode$(l:7)(2J 
1280 Conmand^tDode$(l)-”NH” 

1270 Command jDodeS (2 )-'*NM** 

1280 Commandjmode3(3)-’'NL" 

1*290 Command_mode$(4)-’*ZO** 

1800 Coinnand_niode3(2)-‘*PL** 

1810 Cooniand_niode$(8 )-"PM'* 

1620 Coaniand mode3(7)-’*PH** 

1630 ! 

1840 Collect_cal_dat:I COLLECT RAW CALIBRATION DATA 

1820 ! 

1880 t Collect raw calibration data for each HlScan setting 
1670 FOR Indax-1 TO 7 

1680 CALL Cal2000 (Coninand_mode$( Index ). Index) 

1890 CALL Scan^zocs (Count , Period) 

1700 FOR Zoo_case-1 TO Zoc_number 

1710 SELECT Zoc_case 

1720 CASE 1 

1730 Input_rblock(Bufferl,Call(*).180, ( Index- 1)*160+1) 

1740 CASE 2 

1720 Input_rblock(Buffer2,Cal2(*),180, (Index-l)*160-»-l) 

1780 CASE 3 

1770 Input^rblock (Buf f er3 , Cal3 < * ) , 180 , ( Index-1 ) *160+1 ) 

1780 END SELECT 

1790 NEXT Zoc^caaa 

1800 NEXT Index”* 

1810 t 
1820 PRINT 

1830 PRINT "Calibration data collection complete." 

1840 BEEP 
1820 WAIT .22 
1860 BEEP 

1870 OUTPUT 9:VAL$(1);"IC’*;CHR$(13);END! Initialize Calibrator module #1 
1880 OUTPUT 9;VALS(2);"IC";CHR$(13);END! Initialize Calibrator module #2 
1890 PRINT 

1900 PRINT Secure Calibrator presaure valve to conaerva Nitrogen ***" 

1910 PRINT 

1920 PRINT "HlScan Calibration modes and pressurea (In Hg):" 

19.30 Fmtl.-IMAGE / . 5X , K. lOX, K, lOX ,K, lOX, K 

1940 PRINT USING Fmt 1 ; "Mode" , "Zoc f^l","Zoc j^2","Zoc #3" 

1920 Fmt2:IMAGE 6X , K, lOX, 3D . 4D , 0X, 3D . 4D . 0X, 3D . 4D 
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1960 FOR 1-4 TO 10 

1970 PRINT USING Fmt2;Coinnand_mod0$(I-3) . Zoc_call(0 . I) , Zoc_cal2(0 , I) , Zoc_cai3 (0 , I) 
1980 NEXT I 
1990 ! 

2000 Reduco_cal_dat! ! REDUCE CALIBRATION DATA AND STORE ON HARD DRIVE 

2010 ! Routine to reduce Cal^(*) into Zoc_cal^( I , J) and store on hard drive 
2020 ! 

2030 PRINT 
2040 PRINT 

2050 PRINT "Hard drive name -> 700, 0,1” 

2060 FOR Zoc_case-l TO Zoc_niimber 
2070 SELECT Zoc case 

2080 CASE 1 

2090 CALL Zoc_dat_red (CalK * ) . Zoc^cail (♦ ) . Fi Le_id$ ) 

2100 CASE 2 “ “ 

2110 CALL Zoc_dat red(Cal2(*) . Zoc cal2(*) ,Flle_ld$) 

2120 CASE 3 " 

2130 CALL Zoc_dat red(Cal3(*) , Zoc_cal3(*) ,File_ld$) 

2140 END SELECT 

2150 NEXT Zoc caae 
2160 ! 

2170 Reduce^data: ! REDUCE DATA AND STORE ON HARD DRIVE 

2180 I Routine loada raw and calibration data from hard drive, reduces the raw 
2190 I data, and atorea the reduced data to the hard drive. 

2200 I 

2210 FOR Zoc^case-l TO Zoc_number 
2220 SELECT Zoc^caae 

2230 CASE 1 

2240 CALL Raw red dat(Zoc call(*),me id$) 

2250 CASE 2 ^ ^ 

2260 CALL Raw_red_dat(Zoc_cal2(*) .File ld$) 

2270 CASE 3 “ 

2280 CALL Raw_red dat(Zoo cal3(*),FiIe idS) 

2290 END SELECT** 

2300 NEXT Zoc^caae 
2310 I 

2320 BEEP 
2330 WAIT .25 
2340 BEEP 
2350 WAIT .25 
2380 BEEP 
2370 ! 

2380 Finish:! 

2390 PRINT 

2400 PRINT "Available Memory: SYSTEMS ("AVAILABLE MEMORY") 

2410 DISP "Preaa F2 to continue and return to ZOC Menu." 

2420 PAUSE 

2430 LOAD "ZOC_MENU" , 10 
2440 ! 

2450 END 

2470 ! Routine to operate HP6944A to collect pressure data and store in Memory 
2480 fNote: -Zoc address driven by Counter Card binary output at edge connection 
2490 ! through a 7404 open collector DTL/TTL located in an auxiliary box. 

2500 ! 

2510 SUB Scan_zocs (Count , Period) 

2520 COM /Names/ Buf ferl, Adel, Buffer2,Adc2, Timer 
2530 Wait_time-INT(Count*Period)+10 
2540 Init(Timer) 

2550 Set_tlmeout(Timer ,Wait_time ) 

2560 Set_count (Timer, Count) 

2570 Set_period(Tlmer , Period) 

2580 Inlt(Bufferl) 

2590 Inlt(Buffer2) 

2600 !INIT(BUFFER3) 

Figure B4 (cont) Development Program: SCAN_ZOC_04 
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! Initialize Timer system 
! Set Wait_for period of xx secs. 

! Set Count number into Timer 
! Set Timer pulse length in secs. 

! Initialize Buffer for data storage 
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2610 Start(Tlmer) ! Start data sample collection 

2620 Wait^for (Timer ) ! Data samples stored In Memory System 

2630 subend" 

2640 ! 

2650 ! Subroutine to collect raw pressure data from Memory System and store 
2660 ! onto the hard drive for future data reduction. 

2670 SUB Raw_dat(Buff .Zn.Sn) 

2680 ON ERROR GOSUB Purge^file 

2690 INTEGER Raw_data( 1:32672) BUFFER ! Integer raw data buffer for 32*1021 
2700 ! data samples. Integer format for 

2710 ! mlninum transfer time to storage. 

2720 Data_flle$-’'ZRAW”&VAL$(Zn) ! Raw data file 

2730 Data_dlsc$-Data_f lle$&'* : , 700 , 0 , 1'* 

27A0 CREATE BDAT Data_disc$, 1, 2 I Create BDAT file of 2 byte records. 

2750 ASSIC^ QDatajpath TO Data_disc$ ! Assign path to hard drive 

2760 ASSIGN QBufferjpath TO BUFFER Raw_data(*) ; FORMAT OFF 

2770 Input^lblockCBuff ,Raw_data(*) , Sn*32, 1) ! Load data samples 

2780 CONTROL 0Buffor__path, 4 ; 32*2*Sn ! Close buffer when full 

2790 TRANSFER SBufferjpath TO 0Data__path ! Transfer data to hard drive 

2800 ASSIGN 0Buffer_path TO * 

2610 ASSIGN 0Data_path TO * 

2820 PRINT ’’Raw pressure data for Zoc #'';Zn;’' transferred to the hard drive file ’’ ;Data_file$ 

2830 GOTO Fin 

2840 Purge^flla: ! 

2850 IF ERRN-54 THEN 

2860 PURGE Data dlscS 

2870 END IF 

2880 RETURN 

2890 Fin: I 

2900 SU6EN0 

2910 I 



! Sats calibrator #2 mode 
I Allow BiScan to stabilize 
! Raad BiScan cal press 



2920 I Subroutine controls calibration mode and reads pressure from Pressure 
2930 ! Standard into Zoc_cal(*) array. 

2940 SUB Cal2000(Coamand$»I) 

2950 COM /Zoo^dat/ REAL Zoc^calK*) BUFFER, Zoo_c a 12(*) BUFFER, Zoc_cal3 (*) BUFFER 
2960 COM /Stats/ REAL Period, Sample^number, Wait_f or , INTEGER Cal_mod_id(3 ) 

2970 DIM PraasureS[5] ! Required to raad data stream 

2980 OUTPUT 9 ; VAL$ ( 1) ; Commands ;CHR$( 13) ; END ! Sets calibrator #1 mode 

2990 OUTPUT 9 ; VALS ( 2 ) ; Commands ; CHRS ( 13 ) ; END 
3000 WAIT Walt_for 

3010 FOR K-1 TO Cal_rood_id(0) 

3020 SELECT K " " 

3030 CASE 1 

3040 OUTPUT 9; VALS(Cal_mod_ld( 1) ) ; *'RP" ;CHRS( 13 ) ;END 

3050 ENTER 9 USING ”#,SD. 5DESZ2,K" ;Zoc_call(0, 1+3 ), Pressures 

3060 CASE 2 

3070 . OUTPUT 9;VALS(Cal_rood_ld(2));"RP”;CHRS(13);END 

3080 ENTER 9 USING ’'#,SD. 5DESZZ,K" ; Zoc_cal2(0, 1+3) ,PrasauraS 

3090 CASE 3 

3100 OUTPUT 9 ; VALS (Cal__mod_ld ( 3 ) ) ; '•RP'* ; CHRS ( 13 ) ; END 

3110 ENTER 9 USING '•#,SD. 5DESZZ ,K” ;Zoc_cal3 (0 , 1+3 ) , PressuraS 

3120 END SELECT 

3130 NEXT K 

3140 IF I<-3 THEN 

3150 Zoc__call(0 , 1+3 )— Zoc^call ( 0,1+3) 

3160 Zoc_cal2(0. 1+3)— Zoc_cal2(0,I+3) 

3170 Zoc][cal3 (0 . 1+3 ) — Zoc_cal3 (0 , 1+3 ) 

3180 END IF 

3190 SUBEND 

3200 ! 



! Account for positive pressures used 
! by HiScan in the NH,NM, & NL mode. 



3210 ! Subroutine reduces calibration data collected from Memory System and 
3220 ! HiScan calibration pressure data into a Third-order polynomial curve 
3230 ! fit using the Least Squares routine. The complete calibration array 
3240 ! Zoc_cal_ is then stored onto the hard drive. 

3250 SUB Zoc__dat_red(REAL Cal(*) . Zoc_cal(* ) BUFFER. F_idS ) 
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3280 REAL A(3 , 3 ) , B(3 ) ,C(3 ) , Suxn^x( 6) , A_lnv(3 , 3 ) ! Least Square reduction arrays 
3270 ! 

3280 I Converting Cal(*) to Zoc^caK*) 

3290 FOR J-A TO 10 “ I Cal runs: NH, NM. NL, ZO, PL , PM, PH 

3300 FOR !■! TO 32 ! Zoc ports per calibration run 

3310 FOR K*0 TO 4 ! Number of samples per run 

3320 Zoc_cal(I, J)-Zoc_cal(I. J)+Cal(I+K'^32+(J-4)*160) 

3330 NEXT K 

3340 Zoc^cald , J)-Zoc^cal(I , J)/5 ! Average of 5 samples per port I 

3350 NEXT I 

3360 NEXT J 
3370 I 

3380 ! Calibration data reduction using Least Squares Polynominal fitting. 

FOR K*1 TO 32 ! Loop for each port 

MAT C- (0) 

MAT Sum_x- (0) 

FOR J*1 TO 6 ! Routine to reduce individual port cal 

FOR 1-4 TO 10 ! data into elements to a power x^J 

Sum_x( J)-Sum_x( J)+Zoc_cal(K, I)^J 
NEXT I 
NEXT J 

FOR I-O TO 3 I Derive A array 

FOR J-0 TO 3 

A(I,J)-Suni x(I+J) 

NEXT J 
NEXT I 
A(0,0)-7 

FOR J-0 TO 3 I Derive C array 

FOR 1-4 TO 10 

C(J)-C(J)+Zoc cal(K,I)"J*Zoc cal(0,I) 

NEXT I 
NEXT J 

MAT A_inv- INV(A) 

MAT B- A_inv^ ! B array la matrix of Least Square 

coefficients a0,al,a2,& a3 for polynomial 
equation fitting calibration data for a 
specified port 

3690 ! Collect Least Square coefficients 
3700 Zoc_cal(K,0)-B(0) 

3710 Zoc^cal(K,l)-B(l) 

3720 Zoc2cal(K,2)-B(2) 

3730 Zoc^’cal (K. 3 )-B(3 ) 

3740 ! 

3750 NEXT JC 

3760 ! 

3770 ! Transfer calibration data to hard drive. 

3780 ON ERROR GOSUB Purge_flie 

3790 DIM Data_disc$ [23 ) ! Define string for data file name 

3800 Data_file$-*'ZC”&VAL$(Zoc_cal(0,2))&"_'’&F_ld$ ! Zoc calibration file name 

3810 Data2dlacS-Data_fiie$&'* : , 700 , 0 , 1” 

3820 CREATE BOAT Data_diacS , 33 , 8*11 ! Create BDAT file of 11*8 byte 

3830 ASSIGN @Data_path TO Data^discS ! Assign path to hard drive 

3840 ASSIGN QBuffer^ath TO BUFFER Zoc_cal(*) ;FORMAT OFF 

3850 CONTROL 8Buffer_path, 4 ; 8*11*33 !Set data file length 

3860 TRANSFER 8Buffer_path TO 8Data_path! Store cal data on hard drive 

3870 ASSIGN 8Buffer_path TO * ! Close path 

3880 ASSIGN 0Data_path TO * ! Close path 

3890 PRINT ’’Calibration data for Zoc #” ;Zoc_cal(0,2) : ” transfer to the hard drive file ”;Data_file$ 
3900 GOTO Fin 
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Purge_£ile: ! 

IF ERRN-54 THEN 
PURGE Data_diacS 
END IF 
RETURN 

Fin: ! 

SUBEND 



! Subroutlna loads raw data from the hard driva, reduces the data using 
! calibration coaficients, and atores the reduced data onto the hard drive 
SUB Raw_rad_dat(REAL Zoc_cal(*) BUFFER, F_id$) 

COM /Names/ Bufferl, Add, Bu££er2,Adc2, Timer 
INTEGER Data_intager(l:32) BUFFER 
REAL Data^real (1:32), Data (32) BUFFER 
DIM Data_£ile2$C23) 

ON ERROR^GOSUB Purge_file 
Data_£ilel$-’*ZRAW&VAL$(Zoc_cal(0,2)) 

Data3diacl$-Data_£ilel$&”: , 700,0,1*’ 

Data_£ila2$-’*ZR" AVALS ( Zoc^cal (0,2) )&” J*&F_id$ 

Data“disc2$-Data_£lle2$&*'T. 700,0, 1** 

CRZATZ BDAT Data“diac2$, 1, 8*33 ! Create BDAT £ile o£ 33*8 byte records. 

ASSIGN @Data_pathl TO Data_discl$ 

ASSIGN @Data_path2 TO Data_disc2S 

CONTROL @Data_pathl, 5; 2 !Set read pointer to £irst data byte 



I 



! Recover rew date, convert to real, reduce then store in blocks 
! o£ samplea (32 porta scanned per block) 

FOR Block-1 TO Zoc_cel(0,l) 

ASSIGN SBu££er^ethl TO BUFFER Dete_lnteger(*) ; FORMAT OFF 
TRANSFER 8Date_pathl TO SBuffer^pathl; COUNT 32^2 
CONTROL §Bu££er jpethl . 4 ; 32*2 
SELECT Zoc_cal(0.2) 

CASE 1 

Tran8lete(Adcl,Dete_lnteger(*) ,Date_reel(*) ) 

CASE 2 “ “ 

Translate(Adc2,Deta_intager(*) ,Deta_real(*) ) 

CASE 3 
END SELECT 



! 



Routine to reduce raw date using polynomial: 



Data - aO -t* al*x + a2*x^2 + a3*x^3 



where a0,al,a2, & a3 are Leaat Square coe££iciants , and x is 
the individual port raw data value. 



Sample_time-Zoc_cal (0,0)* ( Block- 1 ) 

Data(0)-Sample_time ! Store reduce data sample time. 

FOR K-1 TO 32 “ 

Data(K)-Zoc cal(K, 0)+Zoc_cal(K, l)*Data_real(K)+Zoc_cal(K,2)*Data_real(K)^2+Zoc_cal(K, 3)*Data__real(E 

NEXT K 



ASSIGN 0Bu££er_path2 TO BUFFER Data(*) 
CONTROL 0Bu££erj?ath2.4;8*33 
TRANSFER 0Bu££er_path2 TO 0Data_path2 
ASSIGN @Bu££er_path2 TO * 

NEXT Block 



! 



ASSIGN §Datajpathl TO * 

ASSIGN @Data_path2 TO * 

ASSIGN 0Bu££erjpathl TO * 

PRINT "Reduced data £lle £or Zoc #** ; Zoc_cal(0 , 2) ; ' 
GOTO Fin 
Purge_£lle: ! 

IF ERRN-54 THEN 



trans£er to the hard drive file " ; Data_f lle2$ 



Figure B4 (cont) Development Program: SCAN_ZOC_04 
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4560 PURGE Data_diac2$ 

4570 EKD IF 

4580 RETURN 

4590 Fin: ! 

4600 SUBEND 

4610 ! 



Figure B4 (cont) Development Program: 



SCAN ZOC 04 
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APPENDIX C. DATA FILE MANAGEMENT 



SCAN_ZOC_05 generates a large number of data files in a 
short period of time. During program development, it was 
desirable to purge these files from the "DATA” hard drive 
":,700,0,1" to keep track of useable files and remove unwanted 
files. The utility program "PURGE_PROG" , Figure Cl, was 
developed to purge SCAN_ZOC_0 5 -generated data files from the 
hard drive. This program can be used when known bad data has 
been collected and it is desirable to purge these files from 
the hard drive. 

PURGE_PROG is located on the UTILity directory (Figure 
Dl) . It is loaded into RAM from any directory and run by 
typing, 

1. LOAD "/UTIL/PURGE_PROG" , followed by depressing the 
<Enter> key to load the program into the RAM. 

2. RUN, followed by the <Enter> key to execute the program. 

The program executes a CAT command and displays the hard 
drive files as illustrated in Figure C2. The program prompts 
the user for the date (YMMDD) , the first run number, and last 
run nvimber of consecutive data files to be purged. Program 
actions are displayed on the screen. The program prompts the 
user to purge more files or to re-display the remaining files 
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using the CAT command. If file re-display (2=CAT) is 
selected, the program prompts again for the date and run 
numbers. Entering <0,0, 0> will exit the program. 
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10 ! Program to purge designated files from SCAN ZOC 05 

20 CLEAR SCREEN 

30 ON ERROR GOTO Cont 

40 Drives-**: ,700, 0,1” 

50 Inputl: ! 

60 CAT Drives ; SELECT "Z** 

70 PRINT 

80 InputZ: ! 

90 INPUT "Enter date (YMMDD), begin run#, end run# (0,0,0-Exlt)'* ,DateS,RunO.Runl 

100 IF RunO-0 THEM Fin 

101 FOR Zoc-l TO 3 

102 FOR Run-RunO TO Runl 

110 Fllel$-'*ZW**&VALS(Zoc)&DateS&VALS(Run) 

120 File2S-'*ZC**&VAL$(Zoc)&DateS&VALS(Run) 

130 Flle3$-'*ZR**&VAL$(Zoc)&DateS&VALS(Run) 

140 Purgel: ! 

150 PURGE FilelS&DriveS 

160 PRINT "Purged file: '*;FllolS 

170 PurgeZ: ! 

180 PURGE FileZS&DrlvoS 

190 PRINT "Purged file: ";File2$ 

200 Purge3: ! 

210 PURGE File3$&DrlveS 

220 PRINT "Purged file: ";File3$ 

200 GOTO Next 

290 Cont: ! 

300 IF ERRN-56 THEN 

310 SELECT ERRLN 

320 CASE 150 

330 GOTO PurgeZ 

340 CASE 180 

350 GOTO Purge3 

360 CASE 210 

-370 GOTO Next 

380 END SELECT 

390 END IF 

400 RETURN 

401 Next: ! 

402 NEXT Run 

403 NEXT Zoc 

405 Print: ! 

406 PRINT 

407 INPUT "Purge more? (0-No 1-Yes 2-CAT)**, Act 

408 IF Act-1 THEN Input2 

409 IF Act-2 THEN Inputl 

410 Fin: ! 

420 LOAD **ZOC_MENU",10 
430 END 



Figure Cl TPL Program; 



PURGE PROG 



700, 0,1 

VOLUME LABEL: DATA 



FILE NAME 


PRO TYPE 


REC/FILE 


BYTE/REC 


ADDRESS 


DATE 


TIME 


ZW1205161 


BOAT 


97 


2 


592 


16-May-92 


14:54 


ZW2205161 


BDAT 


97 


2 


594 


16-May- 92 


14:54 


ZW3205161 


BOAT 


97 


2 


596 


16-May-92 


14:54 


ZC1205161 


BDAT 


33 


88 


598 


16-May- 92 


14:55 


ZC2205161 


BDAT 


33 


88 


611 


16-May-92 


14:55 


2C3205161 


BDAT 


33 


88 


624 


l6-May-92 


14:55 


ZR1205161 


BDAT 


3 


264 


637 


16-May- 92 


14:55 


ZR2205161 


BDAT 


3 


264 


642 


16-May-92 


14:55 


ZR3205161 


BDAT 


3 


264 


647 


16-May- 92 


14:55 



Figure C2 Hard Drive Sample Listing of ZOC-14 DAS Data Files 
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APPENDIX D. TPL PROGRAMS 



A selection of programs generated for use at TPL are 
documented in this Appendix. The programs are found in 
individual directories according to their specific function or 
purpose. Figure D1 displays the major directories and the 
associated programs. Each directory is identified by the 
forward slash character ”/"/ followed by the directory name, 
and a colon, followed by the system drive name ”CS80 : , 700” . 
Subdirectories are identified by the FILE TYPE "DIR”. BASIC 
programs are identified by. the FILE TYPE "PROG". 

"AUTOST", Figure D2, is the HP9000 initialization program 
located in directory "/WORKSTATIONS". This program is called 
by the BASIC system during boot-up. AUTOST is used to display 
the Main Menu and define the function keys used to select the 
Sub Menus and associated programs in the HP9000 Data 
Acquisition System. 

Turbocharger performance mapping programs (prepared for 
student laboratories) are listed in Figures D3-D6. The 
program "SCAN_TEMP", Figure D7, is used to monitor temperature 
probes. SCAN_TEMP, as listed, monitors temperature probe 
outputs from the Turbocharger Test Cell. ”TURBO_MENU" , Figure 
D8 , is used to select the turbocharger the above programs 
(Figures D3-D7) . 
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Turbomachinery design programs used in the course AE 4431 
are listed in Figures D9-D13. 

Program "SCAN", Figure D14, is used to operate the HG-78K 
Scanivalve Controller, HP3495A Scanner, HP3456A Digital 
Voltmeter, and records Scanivalve transducers. SCAN and 
SCAN_TEMP programs, located in directory /WORK/DEVICE_PROG, 
are used in the majority of programs required for data 
acquisition at TPL. 

The sxib-program "Plot", Figure D15, is appended to the end 
of programs used to display plots on the HP9000 CRT, or for 
generating plots on the various plotters. 

The sub-program "FNDate$", Figure D16, is a user-defined 
function to calculate numbered values for the date in the 
format year, month, and day. FNDate$ is in sub-program 
"Date_func", which is located in the directory 
/WORK/FUNCTION_PROG . 

"FILE_XFER", Figure D17, is a utility program used for 
file transfer and "purging" on the HP9000. FILE_XFER is 
located in the /UTIL directory. 

The program "MAIN_MENU" , Figure D18, is used to quickly 
restore the CRT screen to its system display and call-up the 
Main Menu screen. The program is located in the root 
directory /. Loading and executing MAIN_MENU is accomplished 
by entering the following command on the HP9000, and executing 
the command by depressing the Enter key: 

LOAD "/MAIN_MENU",10 <Enter> 
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/WORKSTATIONS :CS80, 700 
LABEL: 

FORMAT: HFS 

AVAILABLE SPACE: 23328 





FILE 


NUM 


REC 


MODIFIED 








FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWNER 


GROUP 


BIN5.1 


DIR 


21 


32 


17-Jan-92 


1A:25 


RWXRWXRWX 


18 


9 


STUDENT DIARY 


DIR 


87 


32 


14-Apr-92 


17:41 


RWXRWXRWX 


18 


9 


AUTOST “ 


PROG 


11 


256 


29-Apr-92 


15:32 


RW-RW-RW- 


18 


9 


DIRECTORY INFO 


PROG 


34 


256 


30-Apr-92 


15:11 


RW-RW-RW- 


18 


9 



/TURBINE :CS80, 700 
LABEL: 

FORMAT: HFS 

AVAILABLE SPACE: 23328 





FILE 


NUM 


REC 


MODIFIED 








FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWNER 


GROUP 


TURB02 


PROG 


14 


256 


l-Ocb-91 


17:40 


RW-RW-RW- 


18 


9 


TURB03 


PROG 


14 


256 


l-Oct-91 


17:43 


RW-RW-RW- 


18 


9 


TURB04 


PROG 


34 


256 


16-Oct-9l 


16:01 


RW-RW-RW- 


18 


9 


TURBO 1 


PROG 


45 


256 


21-Oct-91 


7:59 


RW-RW-RW- 


18 


9 


TURBO^MENU 


PROG 


7 


256 


29-Apr-92 


15:52 


RW-RW-RW- 


18 


9 


SCAN TEMP 


PROG 


8 


256 


30-Apr-92 


7:55 


RW-RW-RW- 


18 


9 


TURBO BAK 


DIR 


4 


32 


20-Apr-92 


13:49 


RW5®WXRWX 


18 


9 



/HP69AAA:CS80, 700 
LABEL: 

FORMAT: HFS 

AVAILABLE SPACE: 23528 

FILE NUM REC MODIFIED 



FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWNER 


GROUP 


fp_data 


BOAT 


18 


256 


3- Jan-92 


7:52 


RW-RW-RW- 


18 


9 


CARD TEST 


PROG 


444 


256 


3“ Jan— 92 


7:52 


RW-RW-RW- 


18 


9 


CONFIGURE 


PROG 


127 


256 


3” J an— 92 


7:53 


RW-RW-RW- 


18 


9 


LIBRARY_5 


PROG 


888 


256 


3- Jan-92 


7:54 


RW-RW-RW- 


18 


9 


VERIFY ’ 


PROG 


282 


256 


3-Jan-92 


8:02 


RW-RW-RW- 


18 


9 


menu^data 


BDAT 


71 


256 


3-Jan-92 


12:20 


RW-RW-RW- 


18 


9 


MENUER 


PROG 


136 


256 


3-Jan-92 


13:40 


RW-RW-RW- 


18 


9 


FRONT P 


PROG 


174 


256 


3-Jan-92 


13:41 


RW-RW-RW- 


18 


9 


HP6944A_BAK 


DIR 


8 


32 


30-Apr-92 


12:57 


RWXRWXRWX 


18 


9 


TABULATE^ZOC 


PROG 


13 


256 


26-Apr-92 


15:40 


RW-RW-RW- 


18 


9 


READ_Z0C“ 


PROG 


11 


256 


26-Apr-92 


17:30 


RW-RW-RW- 


18 


9 


SCAN ZOC 05 


PROG 


1148 


258 


30-Apr-92 


13:02 


RW-RW-RW- 


18 


9 


CAL^READ^PRl 


PROG 


12 


258 


30-Apr-92 


13:49 


RW-RW-RW- 


18 


9 


LS_PLOT 


PROG 


22 


256 


30-Apr-92 


14:33 


RW-RW-RW- 


18 


9 


DOCUMENT 


PROG 


59 


256 


13-Apr-92 


8:45 


RW-RW-RW- 


18 


9 


VER^CFO 


BDAT 


8 


256 


24-Apr-92 


16:51 


RW-RW-RW- 


18 


9 


HP6944A_MENU 


PROG 


7 


256 


7-Apr-92 


7:18 


RW-RW-RW- 


18 


9 


DEVELOPMENT 


DIR 


11 


32 


30-Apr-92 


15:07 


RWXRWXRWX 


18 


9 


PLOT_DATA 


PROG 


29 


256 


30-Apr-92 


14:18 


RW-RW-RW- 


18 


9 


ZOC_CONFIG_05 


BDAT 


5 


256 


26-Apr-92 


16:53 


RW-RW-RW- 


18 


9 


ZOC_MENU 


PROG 


9 


256 


24-Apr-92 


12:55 


RW-RW-RW- 


18 


9 



Figure D1 Listing of TPL Programs by Directory 
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/DESIGN:CS80, 700 
LABEL : 

FORMAT: HFS 

AVAILABLE SPACE: 23528 





FILE 


HUM 


REC 


^!0DIFIED 








FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWER 


GROUP 


DESIGN^BAK 


DIR 


4 


32 


30-Apr-92 


0:07 


RWXRWXRWX 


10 


9 


DESIGN^MENU 


PROG 


0 


256 


16-Dec-91 


16:41 


RW-RW-RW- 


16 


9 


R_4431T 


PROG 


21 


256 


16-DOC-91 


13;59 


RW-RW-RW- 


16 


9 


a”4431T 


PROG 


21 


256 


16-Dec-91 


14:01 


RW-RW-RW- 


16 


9 


TURB3 


PROG 


29 


256 


17-D0C-91 


14:32 


RW-RW-RW- 


10 


9 


TURB4 


PROG 


36 


256 


2O-D0C-91 


16:42 


RW-RW-RW- 


10 


9 



/WORK:CS60, 700 
LABEL: 

FORMAT; HFS 

AVAILABLE SPACE: 23520 





FILE 


NUM 


REC 


MODIFIED 








FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWNER 


GROUP 


FUNCTION^PROG 


DIR 


12 


32 


20-Apr-92 


14:35 


RWXRWXRWX 


10 


9 


DEVICE_PROG 


DIR 


22 


32 


30-Apr-92 


15:29 


RWXRWXRWX 


10 


9 


DISCREP DOC 


PROG 


5 


256 


30-DOC-91 


11:59 


RW-RW-RW- 


10 


9 



/WORK/DEVICE_PROG;CS60, 700 
LABEL; 

FORMAT; HFS 

AVAILABLE SPACE: 23526 





FILE 


NUM 


REC 


MODIFIED 








FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWNER 


GROUP 


CAL 


PROG 


7 


256 


20-Apr-92 


14:15 


RW-RW-RW- 


10 


9 


CAL_READ_PR 


PROG 


11 


256 


20-Apr-92 


14:16 


RW-RW-RW- 


16 


9 


set”bridge 


PROG 


6 


256 


20- Apr- 92 


14:16 


RW-RW-RW- 


10 


9 


READ PORT 


PROG 


5 


256 


20-Apr-92 


14:16 


RW-RW-RW- 


10 


9 


SCAN^PORT 


PROG 


4 


256 


20-Apr-92 


14:17 


RW-RW-RW- 


16 


9 


BCD CONVERT 


PROG 


4 


256 


20-Apr-92 


14:17 


RW-RW-RW- 


16 


9 


SCAN_TEMP 


PROG 


8 


256 


20- Apr- 92 


14:16 


RW-RW-RW- 


16 


9 


UNPACK 


PROG 


4 


256 


20-Apr-92 


14:23 


RW-RW-RW- 


16 


9 


HP37_PACK 


PROG 


5 


256 


20-Apr-92 


14:23 


RW-RW-RW- 


16 


9 


HP37 BENCH 


PROG 


7 


256 


20-Apr-92 


14:24 


RW-RW-RW- 


10 


9 


HP37^BCD 


PROG 


2 


256 


20-Apr-92 


14:24 


RW-RW-RW- 


16 


9 


HP37-56 


PROG 


3 


256 


20-Apr-92 


14:24 


RW-RW-RW- 


10 


9 


HP56^PACK 


PROG 


7 


256 


20-Apr-92 


14:24 


RW-RW-RW- 


10 


.9 


HP37^EXT1 


PROG 


4 


256 


20-Apr-92 


14:24 


RW-RW-RW- 


10 


9 


HP56SRQ 


PROG 


3 


256 


20-Apr-92 


14:26 


RW-RW-RW- 


10 


9 


HP56MEM 


PROG 


5 


256 


20-Apr-92 


14:26 


RW-RW-RW- 


18 


9 


HP37_EXT2 


PROG 


4 


256 


20-Apr-92 


14:26 


RW-RW-RW- 


18 


9 


HP37”a(*) 


PROG 


3 


256 


20-Apr-92 


14:26 


RW-RW;RW- 


10 


9 


HP372gRAPH 


PROG 


12 


256 


20-Apr-92 


14:27 


RW-RW-RW- 


18 


9 


HP37 INT 


PROG 


12 


256 


20- Apr- 92 


l4:27 


RW-RW-RW- 


10 


9 


scan” 


PROG 


11 


256 


27-Apr-92 


14: 13 


RW-RW-RW- 


18 


9 


OUTPUT 9 


PROG 


5 


256 


30-Apr-92 


15:29 


RW-RW'RW- 


10 


9 



Figure D1 (cont) Listing of TPL Programs by Directory 
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/WORK/FUNCTION_PROG:CS80. 700 
LABEL: 

FORMAT: HFS 

AVAILABLE SPACE: 23528 





FILE 


NUM 


REC 


MODIFIED 






FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWTJER 


GRAPH 


PROG 


9 


256 


20-Apr-92 


14:20 


RW-RW-RW- 


18 


GRAPH_PLOTTER 


PROG 


6 


256 


20-Apr-92 


14:20 


RW-RW-RW- 


18 


Plot 


PROG 


10 


256 


20-Apr-92 


14:20 


RW-RW-RW- 


10 


Date^func 


PROG 


4 


256 


20-Apr-92 


14:20 


RW-RW-RW- 


18 


Squar* 


PROG 


A 


256 


20-Apr-92 


14:21 


RW-RW-RW- 


18 


BUFFI 


PROG 


9 


256 


20-Apr-92 


14:21 


RW-RW-RW- 


18 


LEAST^SQUARE 


PROG 


6 


256 


20-Apr-92 


14:21 


RW-RW-RW- 


10 


LS_TEST 


PROG 


18 


256 


20-Apr-92 


14:21 


RW-RW-RW- 


18 


LS_PL0T1 


PROG 


17 


256 


20-Apr-92 


14:21 


RW-RW-RW- 


18 


TEil 


BOAT 


4 


256 


20-Apr-92 


14:22 


RW-RW-RW- 


18 


DATA^LOGGIN 


PROG 


4 


256 


20-Apr-92 


14:22 


RW-RW-RW- 


18 


STOPWATCH 


PROG 


4 


256 


20-Apr-92 


14:23 


RW-RW-RW- 


10 


/UTIL:CS0O, 700 














LABEL: 
















FORMAT: HFS 
















AVAILABLE SPACE: 


23528 














FILE 


NUM 


REC 


MODIFIED 






FILE NAME 


TYPE 


RECS 


LEN 


DATE 


TIME 


PERMISSION 


OWNER 


VERIFY 


PROG 


153 


258 


31-Jul-91 


18:54 


RW-RW-RW- 


18 


HPIB CHECK 


PROG 


4 


256 


9-Aug-91 


9:03 


RW-RW-RW- 


18 


BACKUP 


PROG 


397 


256 


23-Aug-91 


14:03 


RW-RW-RW- 


18 


RETURN MAIM 


PROG 


2 


258 


20-Apr-92 


14:34 


RW-RW-RW- 


18 


MAIN_^ffiNU 


PROG 


2 


256 


20-Apr-92 


16:02 


RW-RW-RW- 


10 


PURGE^PROG 


PROG 


6 


256 


26-Apr-92 


15:49 


RW-RW-RW- 


18 


COPY^FILES 


PROG 


4 


256 


30-Apr-92 


7:45 


RW-RW-RW- 


18 


FILE^XFER 


PROG 


6 


256 


30-Apr-92 


8:20 


RW-RW-RW- 


18 


LASERJET 


PROG 


3 


256 


30-Apr-92 


15:58 


RW-RW-RW- 


18 



9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 



Figure D1 (cont) Listing of TPL Programs by Directory 
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10 

20 

30 

AO 

50 

60 

70 

80 

90 

100 

110 

120 

130 

lAO 

150 

160 

170 

180 

190 

200 

210 

220 

230 

2A0 

250 

260 

270 

280 

290 

300 

310 

320 

330 

3A0 

350 

360 

370 

380 

390 

AOO 

AlO 

A20 

A30 

AAO 



! Prog ram: AUTOST 

IDescription: Program is Loaded immediately following system boot-up 

providing an initial User to Computer interface through 
Function Key menu selection. 



f 

I 

CLEAR SCREEN 
KEY LABELS ON 
DUMP DEVICE IS 



ON KEY 1 LABEL 
ON KEY 2 LABEL 
ON KEY 3 LABEL 
ON KEY A LABEL 
ON KEY 5 LABEL 
ON KEY 6 LABEL 
ON KEY 7 LABEL 
ON KEY 8 LABEL 

I 

PRINT 
PRINT 

PRINT ’’Item: 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT “Note: 

PRINT 
PRINT 
PRINT 
PRINT ” 

PRINT •• 

! 

Hold: ! 

GOTO Hold 
Turbo : I 

GOSUB Load_add bin 
MASS STORAGE IS ’’/TURBINE 
LOAD ”TURBO_MENU” , 10 
Compressor: ! 

GOTO Hold 



711 

” TURBO CHARGER” GOTO Turbo 
"COMPRESSLAB” GOTO Compressor 
’•DESIGN” GOTO Design 
-MULTI PROGRAM” GOTO Hp69AAa 
•’WORK DIR ” GOTO Work 
•’BACKUP” GOTO Backup 
’’PROGRAM LISTINGS” GOTO Directory 
’•EXIT MENU” GOTO Exit 



HP9000 Series 300 Computer Data Acquisition System” 



Select Function Key” 



Turbocharger Lab (*) FI” 
Transonic Compressor Lab (*) F2” 
Turbine Design Programs (*) F3” 
Multi -Programmer Opertion (HP69AAA) FA” 
Work directory (*) F5” 
Backup Files F6” 
HP9000 Program Listing and Information F7” 
Exit Menu F8” 



Binaries required for HP1A753A CAT program are loaded” 
to operate the HP69AAA Mul ti-progr aimer . ” 

Additional binaries are loaded with selection (*).” 

If Error 2 occurs: Memory overflow; reboot system using” 
SYS600T statement and reselect desired directory.” 



A 50 Design: t 



A 60 GOSUB Load^add bin 

A70 MASS STORAGE IS ”/DESIGN” 

A 80 LOAD ’’DESIGN^MENU” , 10 

A 90 Hp69AAa: ! 

500 CLEAR SCREEN 

510 MASS STORAGE IS ”/HP69AAA” 

520 LOAD "HP69AAA_MENU”.10 

530 Work: I 

5A0 GOSUB Load_add_bin 

550 MASS STORAGE IS ’’/WORK” 

560 GOTO Exit 

570 Backup: ! 

580 LOAD "/UTIL /BACKUP”, 10 

590 GOTO Exit 



600 Directory : \ 

610 MASS STORAGE IS ” /WORKSTATIONS” 

620 LOAD "DIRECTORY", 10 

630 GOTO Exit 



6A0 Load_add_bin: ! 

650 LOAD BIN ”/WORKSTATIONS/BTN5 . 1/GRAPHX” 
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660 LOAD BIN ” /WORKSTATIONS /BINS . 1 /TRANS" 

670 LOAD BIN " /WORKSTATIONS/BINS . 1/XREF" 

680 LOAD BIN " /WORKSTATIONS /BINS . 1 /SERIAL" 

690 LOAD BIN '* /WORKSTATIONS/BINS . 1/COMPLEX' 

700 RETURN 

710 Exit: CLEAR SCREEN 

720 END 



Figure D2 (cont) TPL Program: AUTOST 



156 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

231 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 



! FILE NAME: ” TURBO 1” 

! DISK LABEL: ’’/TURBINE” 

! DESCRIPTION: 

! THIS PROG RECORDS AND REDUCES 
! RAW DATA FOR THE T-18A40 TURBO-CHARGER 
! AS SET UP IN APRIL/MAY 1980 (RESET AUG 1991) 

! CHAN & PORT DESIGNATIONS ARE UNIQUE 

I 

! VARIABLES FOR S/V SECTION 

! V-DESIRED S/V 

! P-PRESENT S/V PORT 

! VARIABLES FOR TEMP SECTION 

! SS-SCANNER LISTEN CODE 

! S-SCANNER # 

! C-CHANNEL 

» V-DVM READING 

? AUTHOR: TERRY EARGLE 

! DATE: JUL 79 (MOD MAY 80 BY M.J. KAISER) 

! MODIFIED BY MIKE JEDWAB 1987 
! MODIFIED BY KELLYHARRIS/ALAN MCGUIRE 1984 
! MODIFIED BY RICK WENDLAND AUG 1991 

f 

\ PROMPTS ADDED> ATMOSPHERIC PRESS, 

! RAW AND REDUCED DATA FILES USE DATE^RUN# CONTEXT IN THEIR NAME, 

t REDUCTION CHANGED TO USE A MEASUREd“sTATIC PRESS FOR TURBINE 

! PRESSURE RATIO. I.E. INPUT STAGNATION PRESS. OUTPUT STATIC PRESS. 

! 

! SCANIVALUE #1 SET TO ADVANCE ONLY! !!!!!!!! 

CLEAR SCREEN 
PRINTER IS CRT 

DISP ’•PLEASE WAIT WHILE RESETTING SCANIVALVE** 

V-1 
A-1 

GOSUB R«ad 

PRINT -DATA RUN FOR A TURBO -CHARGER’* 

PRINT 

DIM X(20).Y(6).0(8),M(23),T(19),Z(20),A$(14J ,B$(14] 

El*l ISets first record #»1 

INPUT ’’STORING DATA ? (YES-1 N0-0)”,G1 
INPUT ’’ENTER MONTH. DAY. YEAR” .X(3) ,X(5) ,X(7 ) 

PRINT USING ”K.DD. ””/””. DD. ””/””. DD”;”DATE OF RUN: ” .X(3) .X(5 ) .X(7 ) 

INPUT ’’ENTER RUN #:”.X(9) 

IF Gl-0 THEN 510 

AS-”RAW_”&VAL$ (X ( 7 ) )&VAL3 (X ( 3 ) )&VAL$ (X ( 5 ) )&”_” AVALS ( X ( 9 ) ) 

B3-”REDJ’&VAL$ (X ( 7 ) )&VAL3 (X ( 3 ) ) AVALS (X ( 5 ) ) A”“” AVALS (X ( 9 ) ) 

CREATE ASCII ASA" : . 700 . 0 . 1” . 10 
CREATE ASCII BSA” : . 700. 0, 1" . 10 
ASSIGN QPathl TO ASA” : . 700. 0. 1” 

ASSIGN 8Path2 TO B$A” : . 700 . 0 , 1” 

PRINT ’’RAW DATA FILE NAME: 

PRINT ’’REDUCED DATA FILE NAME: 

X(ll)-1 
GOTO 600 
(30SUB Save 

FOR 1-2 TO 20 STEP 2 
X(I)-0 
NEXT I 

FOR I-l TO 5 
Y(I)-0 
NEXT I 

PRINT USING ”/.K.2D.4X.K.2D”;”RUN #” .X(9) . ’’DATA PT r’.X(ll) 

GOSUB 1130 

I****** RECORD PRESSURES *^>*^******************'******^*****^*>*******'^^*** 

OUTPUT 722;”FlRlM0Z16STGlSTIT3”!Sets-up HP3456A DVM 

V-1 fScanivalve #1 designated 



fCreatea raw data file 
ICreatea reduced data file 



;AS 

;B$ 

ISets first datat point #-l 



!Reset X(^) for pressures to zero 



!Reset Y(*) for temp A RPM to zero 
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650 S"1 !HP3A95A Scanner #1 designated 

660 PRINT USING "/ . 5X , K, ODD , / , 2X , K, 8X ; "SCANIVALVE , V. '’PORT" , "IN . H20" 

670 FOR A-1 TO 10 !Read scanlvalve port values 

680 GOSUB 970 

690 WAIT 1,5 

700 OUTPUT 701; ••C" tClears Scanner #1 

710 OUTPUT 701 USING ’'DDD":V+9 'Scanner #1 set to read Scanlv port 

720 TRIGGER 722 ! Trigger DVM 

730 ENTER 722; VO !Read Scanlv port data from DVM 

7A0 A2-A*2 

750 XCA2)-V0*100000 !Save Scanlv port reading in X(*) 

760 PRINT USING '*2X,DDD, 7X, 7D.D“;P,X(A2) 

770 NEXT A 

780 OUTPUT 701 ;"C" tClear scanner 1 

790 GOSUB 1520 

800 PRINT 

810 DISP "PLEASE WAIT WHILE RESETTING SCANIVALVE" 

820 A-1 

830 V-1 

8A0 GOSy'B Read 

850 INPUT "RETAKE SAME DATA POINT? (1-YES 0-NO)",U1 
860 IF Ul-1 THEN 5A0 

870 IF Gl-0 THEN 890 

880 GOSUB Save 

890 INPUT "COLLECT ANOTHER DATA POINT? (1-YES 0»NO)",R 

900 X(ll)-X(ll)+1 tincrement data point number 

910 IF R-1 AND Gl-0 THEN 540 

920 El-El+1 

930 IF R-1 THEN 540 

940 GOTO 2850 

950 !****•♦ end of main PROGRAM 

960 I 

970 )****«# SUBROUTINE READ AND POSITION S/V PORTS ************************** 

980 I»»»SCANIVALVE #1 HAS INOP HOME FEATURE<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
990 Read; OUTPUT 707 USING "#,K“;V 
1000 P0-SPOLL(707) 

1010 L-BINAND(P0,15) 

1020 T 1-ROTATE (PO, 4) 

1030 M1-BINAND(T1,7) 

1040 P-10*M1+L 

1050 CLEAR 707 

1060 IF P-A THEN Finish 

1070 OUTPUT 701; "C" 

1080 OUTPUT 701 USING "DDD'*;V-1 

1090 OUTPUT 701; "C" 

1100 WAIT .1 

1110 GOTO Read 

1120 Finish: RETURN 

1130 !******SUBROUTINE TO BARO PRESS & TEMPERATURES ************************** 
1140 OUTPUT 701 ;"C" 'Clear scanner 1 

1150 OUTPUT 722;"F1R1M0Z1T3" !Sets-up HP3456A DVM 

1160 !»»» BARO PRESS IS MANUAL INPUT <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 

1170 INPUT "ENTER BAROMETRIC PRESSURE IN INCHES HG",X(1) 

1180 ! INPUT "ENTER RPM",Y(6) 

1190 OUTPUT 705; "INAUISMI" !Sots-up HP5335A Counter 

1200 ENTER 705 ;Hz fCollect data from counter 

1210 Y(6)-Hz*60 

1220 PRINT USING "/ ,K,6D,DD, 10X,K,6D, /":"BAROMETER(IN, OF HG)-" ,X(1 ) . "RPM-" . Y(6 ) 
1230 S-2 'HP495A Scanner #2 designated 

1240 PRINT USING "5X,K,DD, / ,2X,K,8X,K"; "SCANNER #" ,S. "CHAN" , "TEMP (R)" 

1250 FOR C-1 TO 5 !Collectlng temperatures (chls 1-5) 

1260 OUTPUT 708 ;"C" 

1270 OUTPUT 708 USING "DDD";C tScanner #2 

1280 TRIGGER 722 ! Trigger DVM 

1290 ENTER 722 ;V 
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{Storing temperatures in T(^) 



1300 T(C)-V 
1310 NEXT C 
1320 FOR C-25 TO 26 
1330 OUTPUT 708;*’C” 

13A0 OUTPUT 708 USING ’•DDD*’;C 
1350 TRIGGER 722 
1360 ENTER 722 ;V 
1370 T(C-7)-V 

1380 
1390 
lAOO 
lAlO 
1A20 
1A30 
lAAO 
1A50 
1A60 
1A70 
1A80 
1510 
1520 
1530 
15A0 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
16A0 
1850 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
17A0 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
18A0 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
19A0 
1950 
1960 



ICoLLectlng temp (chls 25-26) 

{Scanner #2 
{Trigger DVM 

{Storing temperatures in T(18),T(19) 



NEXT C 

OUTPUT 708;*’C’* 

CLEAR 722 
T(6)-T(3) 

T(7)-T(5) 

T(3)-T(2)+T(18) 

T(5)-T(A)+T(19) 

FOR C-1 TO 5 

Y(C)"FNT(T(C)*1000)+A60 {Converts temp to deg Rankine 

PRINT USING *’2X,DDD.8X,6D.D”;C,Y(C) 

NEXT C 
RETURN 

!«««**« SUBROUTINE FOR DATA REDUCTION ^^***^^^^**^^^*^^^^^**»^»**^^*****^* 
! TURBINE STATIC OUTLET PRESSURE WAS CHANGED FROM 

! ATMOSPHERIC TO A VALVE MEASURED IN THE TURBINE OUTLET FLOW 

! 

! VARIABLES FOR THIS SECTION 
! M IS STORAGE ARRAY 

! Q-MATRIX OF PRESS (IN. OF HG) 

! M(1)-TURBINE HEAD(DELTA P ORIFICE) 

{ M(2)-COMPRESSOR HEADCDELTA P COMPRESSOR) 

I Yl-ORIFICE EXPANSION FACTOR (TURBINE) 

I Y2-ORIFICE EXPANSION FACTOR (COMPRESSOR) 

{ Kl-DISCHARGE COEF FOR FEED ORIFICE (TURB) 

{ K2-DISCHARGE COEF FOR FEED ORIFICE (COMP) 

{ C9^ SUB P FOR AIR- 0.2A 

! C8-CONV FACTOR BTU->BP 

! C7-(GA^f1A-l/GA^t^A) WITH GA^t^A-l.A 

I ZIMDRIFACE FACTOR (TURB) 

! 22-ORIFACE FACTOR (COMPRESSOR) 

{ A3-ALPHA FACTOR (THERMAL) IN FLOW EQN (TURB) 

! AA-ALPHA FACTOR (THERMAL) IN FLOW EQN (COMP) 

{ K3-FACT0R IN FLOW EQN (TURB) 

{ K4-FACTOR IN FLOW EQN (COMP) 

I Fl-FIRST ITERATION OF FLOW RATE (TURBINE) 

! F2-FIRST ITERATION OF FLOW RATE (COMPRESSOR) 

! M(3)-TURB FLOW RATE 

I M(4)-COMP FLOW RATE 

! M(5)-TURB HP 

! M(6)-COMP HP 

! M(7)-TURB PRESS RATIO (IN/OUT) 

! M(8)-COMP PRESS RATIO (IN/OUT) 

! M(9)-TURB EFFICIENCY (TOTAL -STATIC) 

! M(10)^XMPRESSOR EFFICIENCY (TOTAL-TOTAL) MJ 

{ TO-REF TEMP (518.7 DEG R) 

{ M(11)-SQRT OF THETA (TURB) (T( IN) /T(REF) )"0 . 5 

! M(12)-SQRT OF THETA (COMP) 

{ DO-REF PRESS (29.92 IN. HG) 

! M(13)-REF PRESS RATIO (TURB IN/REF) 

{ M(1A)-REP PRESS RATIO (COMP IN/REF) 

! M(15)-REF TURB FLOW RATE 

! M(16)-REF COMP FLOW RATE 

I M(17)-REF TURB RPM 

I M(18)-REF COMP RPM 

! M(19)-REF TURB HP 

{ M(20)-REF COMP HP 

! M(21)«DELTA TEMP(TURB) 
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1970 ! M(22)-DELTA TEMP(COMP) 

1980 ! M(23)-=HEAD COEFFICIENT 

1990 MAT 0- (0) 

2000 FOR 1-6 TO 20 STEP 2 

2010 Q(I/2-2)-((X(I)-X(2))*.07355)+X(l) 

2020 NEXT I 

2030 M(l)-X(6)-X(8) 

2040 M(2)-X(14)-X(16) 

2050 Y1-1*.026*M(1)/Q(1) 

2060 Y2-1-.02581*M(2)/Q(5) 

2070 Kl-1.4405 

2080 K2-. 83094 

2090 C9-.24 

2100 C8-1. 414836364 

2110 C7-. 2857142857 

2120 Z1-1.94C9*(((Y(1)-460)/100)-1) 

2130 Z2-1.9+C9*(((Y(4)-460)/100)-l) 

2140 A3-l+.002044*((Y(l)-528)/100) 

2150 A4-l+.002044*((Y(4)-528)/100) 

2160 K3-. 00327673 

2170 K4-. 0015472 

2180 F1-K1*A3*Y1*SQRT(ABS(Q( 1)*M( 1) /Y( 1) ) ) 

2190 F2-K2* A4 ♦ Y2 ♦SQRT ( ABS ( Q ( 5 ) *M( 2 ) / Y ( 4 ) ) ) 

2200 M( 3 )-Fl/2* ( 1+SQRT(ABS ( 1+4*K3*Z1/F1) ) ) 

2210 M( 4 )-F2/2*( 1+SQRT(ABS( 1+4*K4*Z2/F2) ) ) 

2220 M(21)-Y(2)-Y(3) 

2230 M(22)-Y(5)-Y(4) 

2240 M(5)-M(3)*C9*M(21)*C8 

2250 M( 8 ) -M( A ) 22 ) *C8 
2260 M(7)-Q(3)/Q(4) 

2270 M(8)-Q(8)/Q(7) 

2280 M(9)-(M(21)/Y(2))*(1/(1-(Q(4)/Q(3))'‘C7))*100 

2290 M(10)-Y(4)/M(22)*((M(8)^C7)-1)*100 

2300 TO-518.7 

2310 M(ll)-SC3RT(Y(2)/TO) 

2320 M(12)-SQRT(Y(4)/T0) 

2330 DO-29.92 

2340 M(13)-Q(3)/D0 

2350 M(14)-Q(7)/D0 

2360 M(15)-M(3)*M(11)/M(13) 

2370 M( 16 )-M( 4 ) ♦MC 12 ) /M( 14 ) 

2380 M(17)-Y(6)/M(ll) 

2390 M(18)-Y(6)/M(12) 

2400 M(19)-M(5)/(M(13)*M(1D) 

2410 M(20)-M(8)/(M(14)*M(12)) 

2420 M(23)-12872868*Y(2)/Y(8)"2*(1-(Q(4)/Q(3))^C7) 

2430 PRINT 
2440 PRINT 

2450 PRINT "REDUCED DATA:" 

2460 PRINT 

2470 PRINT "HEAD COEFFICIENT-" ;M( 23) 

2480 PRINT USING " / , 8X , K" ; "HP FLOW DELTA PRESS EFF FLOW RPM HP" 

2490 PRINT USING "17X.K" ; "RATE TEMP RATIO (REF) (REF) (REF)" 

2500 t PRINT "KKKK_^XXXXX . X^XXXXXX . XXX_XXXXXX . X^XXXXXX . XXX^XXXXXX . X^XXXXXX . XXX_XXXXXX_XXXXX . X" 

2510 PRINT USING "/ ,K,X, 5D .D.X. 6D . 3D,X, 6D . D .X, 6D. 3D . X, 6D. D.X, 6D . 3D,X, 6D . X , 5D. D" : "TURB" ,M(5 ) ,M( 3) 
2520 PRINT USING , K,X , 5D . D ,X , 6D . 3D ,X , 6D . D,X , 6D . 3D,X , 6D . D,X , 6D . 3D , X , 6D.X , 5D . D" : "COMP" , M( 6 ) ,M( 4 ) 

2530 ! 

2540 RETURN 

2550 !***♦ SUBROUTINE TO SAVE DATA POINT ON HARD DRIVE 700, 0,1 *****'»******* 

2560 Sav«: OUTPUT QPathl;A3 

2570 OUTPUT 8Pathl;El 

2580 OUTPUT QPathl ;X(*) , Y(’*) , T('») 

2590 OUTPUT 8Path2;B$ 

2600 OUTPUT 9Path2;El 
2610 OUTPUT 9Path2;M(«^) 
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2620 RETURN 

2630 REM**** END OF SUBROUTINES **^*******************************^^********* 

2640 ! 

2650 LOAD ’’TURBO^LAB” , 10 
2660 END 
2670 I 

2680 REM**** FUNCTION FOR TEMPERATURE COMPUTATION ★*^***^******************** 

2690 DEF FNT(V) 

2700 Sl-32. 144+35. 77*V-.4518*V^2 

27 10 S2-33 . 252+34 . 86*V- . 1855*V^2 

2720 IF Sl<100 THEN 2740 

2730 S1-S2 

2740 RETURN SI 

2750 FNEND 

2760 REM**** END OF USER DEFINED FUNCTIONS ******i*^*****************^*^*^**** 
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10 ! PROGRAM: TURB02 (OLD TURB03) 

20 I MODIFIED BY: R. SHREEVE 10/8/86 

30 I R. WENDLAND, LCDR, USN, 9/17/91 

AO CLEAR SCREEN 

50 DIM X(20),Y(6),T(19),I$C12],0$[12],U$[1A] 

60 INTEGER El 

70 PRINTER IS CRT 

80 INPUT "ENTER RAW DATA FILE NAME:",U$ 

90 INPUT "ENTER DATA POINT RECORD NUMBERS (LOW, HIGH):",A,B 

100 INPUT "DO YOU WANT TO DISPLAY RESULTS TO SCREEN OR PRINTER (SCREEN-0 PRINTER-1) ?" ,R 

110 IF R-0 THEN 130 

120 PRINTER IS 711 

130 ASSIGN QPath TO U3&" 700,0. 1" 

lAO ON END @Path GOTO Continual 

150 GOSUB Raad 

160 1$-" INLET" 

170 0$-" OUTLET" 

180 PRINT " - •• 

190 PRINT TAB(23);"CUhWINS TURBOCHARGER MEASURED DATA" 

200 PRINT " - " 

210 PRINT USING "16X,K,DD, 19X,K,DD,K,DD,K,DD"; "RUN ,X(9) , "DATE: " ,X(3) . "/" ,X( 5) , "/" ,X(7) 

220 PRINT " - - " 

230 PRINT USING "/,/ .27X.K"; "PRESSURES (IN. H20 GAUGE)" 

2A0 PRINT USING "20X.K, 5X,K";" | ORIFICE | TURBINE | NOZZLE", "| COMPRESSOR" 

250 PRINT "POINT TARE CALIB. | " ; TAB(36) ; " | " ;TAB( 51) ; " | " ;TAB(66) ; " | " 

260 PRINT USING "K, 1AX,K,K,K,K,K,K,K,K"; " NO. ",I$.0$,I$,0$,I$,0$,I$,0$ 

270 PRINT USING "lOD, 6D. 8D. 7D , 8D, 7D. 8D. 7D. 8D, 8D" ; 1. 2, 3, A , 5, 6, 7 , 8 , 9 , 10 

280 PRINT ” - " 

290 Printl: IF E1<A THEN Loopl 

300 PRINT USING "3D, 6D .D, 5D ,D, 6D .D, 5D .D. 6D.D, 5D .D, 6D. D, 5D .D, 6D .D. 5D. D" ;X( 11) ,X(2) ,X( A ) ,X( 6) ,X(8) 
310 IF El-B THEN Continual 
320 Loopl: GOSUB Raad 
330 GOTO Printl 

3 AO Continual: PRINT " - - - - 

350 ASSIGN BPath TO U$&" : , 700 , 0 , 1" 

360 ON END QPath GOTO Continua2 

370 El-0 

380 GOSUB Read 

390 1$-" INLET" 

AOO OS-" OUTLET" 

AlO PRINT USING "/,/, A7X,K" ; "TEMPERATURES (DEG R)" 

A20 PRINT USING "28X,K";"l" 

A30 PRINT USING "K, 5X,K, AX,K, lOX.K, 6X,K. 7X,K, AX,K" ; "POINT" , "RPM" , "ATM. PRESS | | "TURBINE" , " 
AAO PRINT USING "K, 15X,K,K,K,K,K" ; " NO. " ; "(IN.HG) ORIFICE", IS. 0$, I$,0$ 

A50 PRINT USING "23X, IID , IID , lOD , IID , lOD" ; 1 , 2, 3 , A , 5 

A60 PRINT — - — 

A 70 Prlnt2: IF E1<A THEN Loop2 

A80 PRINT USING "3D , IID , 8D . DD , 9D . D , 9D. D , 8D . D , 9D . D, 8D .D" ;X( 11 ) , Y(6) , X( 1 ) , Y( 1 ) . Y(2 ) , Y(3 ) , Y( A ) . Y( 5 ) 
A 90 IF El-B THEN Contlnue2 
500 Loop2;(XDSUB Read 
510 GOTO Prlnt2 

520 Continue2: PRINT " 

530 PRINT TAB(21);"NOTE: CHANNEL AND PORT NUMBERS INDICATED" 

5A0 PRINT " " 

550 GOTO Hold 
560 Read: ENTER QPath; AS 

570 ENTER QPath; El 

580 ENTER QPath ;X(^) 

590 ENTER QPath; Y(*) 

600 ENTER QPath; T(^) 

610 RETURN 

620 Hold:DISP "F2 TO CONTINUE" 

630 PAUSE 

6A0 PRINTER IS CRT 
650 LOAD "TURBO_LAB", 10 
j660 END 
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10 ! PROGRAM: TURB03 (OLD TURBOA ) 

20 ! MODIFIED BY: R. SHREEVE 10/8/86 

30 ! R. WENDLAND, LCDR, USN, 9/20/91 

AO CLEAR SCREEN 

50 DIM X(20),Y(6), 1(1*9), M(23).U$[1A],V$(1A) 

60 INTEGER E1,E2 

70 PRINTER IS CRT 

80 INPUT "ENTER RAM DATA FILE NAME:",U$ 

90 INPUT "ENTER REDUCED DATA FILE NAME:",V$ 

100 INPUT "ENTER DATA POINT RECORD NUMBERS (LOW, HIGH):",A,B 

110 INPUT "DO YOU WANT TO DISPLAY RESULTS TO SCREEN OR PRINTER (SCREEN-0 PRINTER-1 )?" ,R 

120 IF R-0 THEN lAO 

130 PRINTER IS 711 

lAO ASSIGN QPathl TO U$&" : , 700 , 0, 1" 

150 ASSIGN 8Path2 TO 7$&" ; , 700, 0, 1" 

160 ON END QPathl GOTO Continual 

170 ON END 0Path2 GOTO Continual 

180 GOSUB Read 

190 PRINT " 

200 PRINT TAB(23);”CU^«INS TURBOCHARGER CALCULATED DATA" 

210 PRINT " - 

220 PRINT USING ”16X,K,DD, 19X,K,DD,K,DD,K,DD";"RUN #" ,X(9) . "DATE: ” ,X(3 ) . "/" ,X(5) , "/" , X(7 ) 

230 PRINT " 

2A0 PRINT USING "/,/, 32X, K" ; "TURBINE DATA" 



250 


PRINT 


USING "9X,K";"POINT 


PRESS 


REF 


REF 


HP 


REF 


HEAD 


EFF" 


260 


PRINT 


USING "10X,K";"NO. 


RATIO 


RPM 


FLOW 




HP 


COEFF 


(Z)" 


270 


PRINT 


USING "16X,K,9X,K";” 


•(P6/P5)" 


,"(LBM/SEC)' 












280 


PRINT 


USING "10X,K";" 


M(7) 


M(17) 


M(15) 


M(5) 


M(19) 


M(23) 


M(9)" 



290 PRINT " " 

300 Prlntl; IP E1<A THEN Loopl 

310 PRINT USING "9X, 30, 8D . 20, 90, 50.3D , 6D . 2D, 5D . 2D, 3D . 3D, 5D . D" ;X( 11) ,M(7 ) ,M( 17) ,M( 15) ,M( 5) ,M( 19) , 
320 IF El-B THEN Continual 
330 Loopl: GOSUB Read 
3A0 GOTO Prlntl 

350 Continual: PRINT " - — 

360 ASSIGN QPathl TO U$&" : , 700 , 0 , 1" 

370 ASSIGN 8Path2 TO V$&" : , 700 , 0, 1” 

380 ON END QPathl GOTO Continua2 

390 ON END QPath2 GOTO Continua2 

AOO El-0 
A 10 GOSUB Read 



A20 


PRINT 


USING 


” / , / , 30X , K" ; "COMPRESSOR 


DATA" 












A30 


PRINT 


USING 


"9X,K"; "POINT 


PRESS 


RPM 


REF 


REF 


HP 


REF 


EFF" 


AAO 


PRINT 


USING 


"10X,K";"NO. 


RATIO 




RPM 


FLOW 




HP 


(Z)" 


A 50 


PRINT 


USING 


"15X.K, 18X,K"; 


"(P10/P9)’ 


’,"(LBM/SEO" 










A80 


PRINT 


USING 


"10X,K",‘" 


M(8) 




M(18) 


M(18) 


M(6) 


M(20) 


M(10) 



A70 PRINT " - " 

A80 Print2: IF E1<A THEN Loop2 

A90 PRINT USING "9X, 3D , 6D . 2D . 9D . 8D . AD . 3D . 5D . 2D , AD . 2D , AD . D" ;X( 11 ) ,M( 8 ) . Y (6) ,M( 18 ) ,M( 16 ) , M(6 ) ,M( 20 ) 
500 IF El-B THEN Contlnua2 
510 Loop2: GOSUB Read 
520 GOTO PrintZ 

530 ContinuaZ: PRINT " - 

5A0 GOTO Hold 

550 Read: ENTER §Pathl;A$ 

560 ENTER QPathl ;E1 

570 ENTER 0Pathl;X(*) 

580 ENTER QPathl ;Y(*) 

590 ENTER QPathl ;T(*) 

800 ENTER QPath2;B$ 

610 ENTER QPath2;E2 

620 ENTER QPath2;M(^) 

630 RETURN 

6A0 Hold:DISP "F2 TO CONTINUE" 

650 PAUSE 

Figure D5 TPL Program: TURB03 
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660 PRINTER IS CRT 
670 LOAD ”TURBO_LAB*’ , 10 
680 END 



Figure D5 (cont) TPL Program: TURB03 
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10 ! Program: TURBOA Plots data from designated ASCII files to the CRT or Printer 

20 IDeveloped: by R. Wendland, LCDR, USN, 22 Sept 1991 

30 ! 

40 DIM Tltie$[501 , X^labelS [50 ) ,Y_label$[501 ,Red_flle$ [ lA] ,M(23 ) . DataK 1 ; 20 , 23 ) . Data2 ( 1 : 20 , 23 ) 
50 CLEAR SCREEN 

60 KEY LABELS OFF 

70 PRINTER IS CRT 

80 I 

90 ! Load working matrix Data: 

100 Load^matrix: I 

110 INPUT "Number of piota per graph (1 to 3) : " ,Num_piots 

120 FOR K-1 TO Num_piots 

130 INPUT "Enter reduced data file name: " ,Red_flle$ 

lAO PRINT "Data file ";Red_file$ 

150 ASSIGN QPath TO Red_flle$&": ,700,0, 1" 

160 ON END QPath GOTO AlO 

170 I-l 

180 Read: ENTER 0Path;A$ 

190 ENTER 0Path;El 
200 ENTER 0Path;M(*) 

210 SELECT K 

220 CASE 1 

230 FOR J-0 TO 23 

2A0 Datal(I,J)“M(J) 

250 NEXT J 

260 Dl-Dl+1 

270 CASE 2 

280 FOR J-0 TO 23 

290 Data2(I,J)-M(J) 

300 NEXT J 

310 D2-D2+1 

320 CASE 3 

330 FOR J-0 TO 23 

3A0 Data3(I,J)-M(J) 

350 NEXT J 

360 D3-D3+1 

370 END SELECT 

380 I-I+l 

390 GOTO Read 

AOO I-O 

AlO NEXT K 

A20 I 

A30 i— — Define graph parameters: 

A AO Graph_parameter : t 

A50 INPUT "Enter graph title: " ,Tltle$ 

A60 PRINT "Graph title: ";Tltle3 

A70 INPUT "Enter X-axla label: " ,X_iabel3 

A80 PRINT "X-axla label: ";X label3 

A90 INPUT "Enter Y-axis label?" ,Y_label$ 

500 PRINT "Y-axis label: ";Y_label3 

510 INPUT "Enter X-axla and Y-axis M-values( M(x),M(y) ):",X,Y 

520 FOR K-1 TO Num_plots 

530 SELECT K 

5A0 CASE 1 

550 PRINT 

560 PRINT "Data file 

570 PRINT X_label$;TAB(25);Y_label3 

580 FOR I-l TO D1 

590 PRINT Datal(I,X).Datal(I,Y) 

600 NEXT I 

610 CASE 2 

620 PRINT 

630 PRINT "Data file J?";K;":" 

6A0 PRINT X_labelS;TAB(25);Y_label3 

650 FOR I-l TO D2 

Figure D6 TPL Program: TURB04 
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660 
670 
680 
690 
700 
710 
720 
730 
7A0 
750 
760 
770 
780 
790 
800 1 


PRINT Data2(I.X),Data2(I,Y) 

NEXT I 
CASE 3 
PRINT 

PRINT ’’Data file 

PRINT X label$;TAB(25);Y LabelS 

FOR I-i”T0 D3 

PRINT Data3(I,X),Data3(I,Y) 

NEXT I 
END SELECT 
NEXT K 

INPUT "Enter Xmin, Xmax. Ymin, Ymax: " ,Xo ,Xf , Yo, Yf 
! 


Sraph data: ! 




810 


CLEAR SCREEN 




820 


GINIT 


Unitialize graph routine 


830 


Xso-Xo 


! Initialize all scaling variables 


840 


Xsf-Xf 




850 


Yso-Yo 




860 


Ysf-Yf 




870 


Xa range*Xsf-Xso 




880 


Ys_range*Y9f-Y8o 




890 


Xacale^l 




900 


Yscale-l 




910 


IF Xs range<1000 THEN 


! Scale up graph variables for mininum of 


920 


Xa_rango-X8^range*10 


! of 1000 units of resolution across x-axia 


930 


X8cale«X8cale*10 




940 


GOTO 910 




950 


END IF 




960 


IF Ya_range<1000 THEN 


1 Scale up graph variables for mininum of 


970 


Ys_r ang ••Y 8_r ang • * 1 0 


! of 1000 units of resolution across y^axis 


980 


Y8cale«Y8oale*10 




990 


GOTO 960 




1000 


END IF 




1010 


Xso«‘Xo*X8cale 


! Finalize all scaling variables 


1020 


X8f-Xf*X8cale 




1030 


Y 80 -Yo*Y 8 caie 




1040 


Yaf-Yf*Y8cale 




1050 


Xa^range-Xa f-Xao 


ILength of X^sxis 


1060 


Y3_range-Ya£-Y80 


! Length of Y-axis 


1070 


LORG 6 


! Character ref ptrtop center 


1080 


MOVE 100*RATIO/2,100 


!Move cursor to screen loc for labels 


1090 


LABEL Titles 


IPlot title 


1100 


CSIZE 3.5 


f Sizes labeling 


1110 


MOVE 100*RATIO/2,0 


IMove cursor to bottom center screen 


1120 


LORG 4 


!Character ref ptibottom center 


1130 


LABEL X_label3 


!X-axis label 


1140 


DEG 


!Desig degrees for LDIR 


1150 


LDIR 90 


ISets Y-axis label on end 


1160 


LORG 6 




1170 


MOVE 0,50 




1180 


LABEL Y_labei$ 


!Y-axis label 


1190 


LDIR 0 


{Reset label to horizontal orientation. 


1200 


LORG 2 


!Chr ref pt:left center 


1210 


VIEWPORT 10, 90*RATIO, 10,90 JSeta graph screen size 


1220 


FRAME 


!Box around VIEWPORT 


1230 


WINDOW Xao.Xaf.Yao.Ysf 


!Set axis lengths in VIEWPORT 


1240 


AXES Xa^range/10,Ys__range/10,Xso, Yso lAxea intersect at lower left 


1250 


AXES Xs_range/10 , Ys_rsnge/10 ,Xs£, Ysf !Axes intersect st upper right 


1260 


CLIP OFF 


!So labels can print outside VIEWPORT 


1270 


CSIZE 3.0, .4 


lAxes label size 


1280 


LORG 6 


’Number X-axis 


1290 


FOR I-Xso TO Xsf STEP Xs_ 


range/ 10 


1300 


MOVE I , Yso- . 01*Ys_range 
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1310 LABEL USING ; I/Xscal© 

1320 NEXT I 

1330 LORG 8 ! Number Y-axis 

1340 FOR I-Yso TO Ys£ STEP Ys_range/10 

1330 MOVE Xso-.01*Xa_ranga,I 

1360 LABEL USING ; I/Yscala 

1370 NEXT I 

1380 FOR K-1 TO Numjplota 
1390 SELECT K 
1400 CASE 1 

1410 FOR I-l TO D1 

1420 PLOT Datal(I,X)*Xscale,Datal( I , Y)*YscaIa, -2 ! Plots Oatal as squares 

1430 PDIR 43 

1440 POLYGON . 01*Xs_ranga , 4 

1430 NEXT I 

1460 CASE 2 

1470 FOR I-l TO D2 

1480 PLOT Data2(I,X)*XscaIe,Data2(I.Y)*YscaIe,-2 ! Plots Data2 as diamonds 

1490 PDIR 0 

1300 POLYGON . 01*Xs_ranga , 4 

1310 NEXT I 

1320 CASE 3 

1330 FOR I-l TO D3 

1340 PLOT Data3(I ,X)*Xscale,Data3(I, Y)*Yscala, -2 ! Plots Data3 as triangles 

1330 PDIR 90 

1360 POLYGON . 01*Xa_range , 3 

1370 NEXT I 

1380 END SELECT 

1390 NEXT K 

1600 IF Plot-0 THEN Hard copy ’ 

1610 DUMP GRAPHICS #711 ~ 

1620 GOTO Anothar^plot 
1630 ! 

1640 I-—- Hard copy plota of grapha 

1630 Hard-copy; ! 

1660 INPUT "Plot graph: (No-0 Printor-1 Plottar-2)" , Plot 
1670 IF Plot-0 THEN Another^plot 
1680 IF Plot-1 THEN Graph_data 

1690 ! Plotter routine 

1700 Plotter: ! 

1710 PRINTER IS 712 
1720 Xso-Xo 
1730 Xa£-Xf 
1740 Yao-Yo 
1730 Ya£-Y£ 

1760 Xa_range-Xs£-Xso 
1770 Y8_range-Ys£-Yao 
1780 Xscale-1 
1790 Yscale-1 
1800 IF Xa_range<1000 THEN 
1810 Xs_range-Xa_range^l0 
1820 Xscale-Xacale*10 
1830 GOTO 1800 
1840 END IF 

1850 IF Ys_range<l000 THEN 
1860 Ya_range-Ys_range*10 
1870 Yscale-Yscale^lO 
1880 GOTO 1850 
1890 END IF 

1900 Xa£-INT(X£*Xacale) 

1910 IF Xs£>16383 THEN 
1920 Xa£-Xs£/10 

1930 Xscale-Xscale/10 
1940 GOTO 1910 
1950 ZllD IF 

Figure D6 TPL Program: TURB04 



! Initialize all scaling variables 



! Scale up graph variables Cor mlnlnum of 
! of 1000 units of resolution across x-axis 



! Scale up graph variables for mininum of 
! of 1000 units of resolution across y-axis 



! Readjust graph variables to ensure x-axis 
! Xsf does not exceed 16383 units 
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1960 Ysf-INT(Yf*Yscal 0 ) 

1970 IF Ysf>16383 THEN ! Roodjust graph variables to ensure y-axis 

1980 Ysf-Ysf/lO ! Xsf does not exceed 16383 units 

1990 Yscale-YscaXe/ 10 

2000 GOTO 1970 

2010 END IF 

2020 Xao-INT(Xo*Xscale) ! Finalize all scaling variables 

2030 Xaf-INT (Xf’^Xscale ) 

20A0 Yso«INT(Yo*Yscale) 

2050 Yaf-INT(Y£*Yscale) 

2060 PRINT ’'IN; IPIOOO, 1000,9500,7000;" ! Set paper size 

2070 PRINT ’’SC'’;Xao;",’’;Xsf;’*,’’;Yso;’*/’;Ys£;";" ! Set X & Y axises lengths 

2080 PRINT "PA- ;Xao ; ’’ , ” ; Yso ; " ; SPl ; PD ; " 

2090 FOR Xp-Xso TO Xsf STEP (Xs£-Xso)/10 ! Print X-axis 

2100 PRINT " PA" ; Xp ; " , " ; Yso ; " ; XT ; PU ; " 

2110 PRINT ”CP-2.4,-1.3;LB";Xp/Xscale;CHR$(3) 

2120 PRINT "PA" ; Xp; " , " ; Yso ; " ; PD ; " 

2130 NEXT Xp 

21A0 PRINT "PU;PA";Xso+INT( .A*(Xsf-Xso));",";Yso-INT( .078*(Ys£-Yso)) ;";LB";X_label$;CHR$(3) 

2150 PRINT "PU;PA";Xso;",";Ys£;";PD;" 

2160 FOR Xp-Xso TO Xsf STEP (Xs£-Xso)/10 
2170 PRINT "PA" ;Xp; " , " ; Ysf; " ;XT ; " 

2180 NEXT Xp 

2190 PRINT "PU ; PA" ;Xso; " , " ; Yso ; " ; PD ; " 

2200 FOR Yp-Yso TO Ysf STEP (Ys£-Yso)/10 ! Print Y-axis 

2210 PRINT "PA" ;Xso ; " , " ; Yp; " ; YT ; PU ; " 

2220 PRINT "CP- 6 . A , - . 3 ; LB" ; Yp/ Yscale ; CHR$ ( 3 ) 

2230 PRINT "PA";Xso;",";Yp;";PD;" 

22A0 NEXT Yp 

2250 PRINT "PU;FA";Xso-INT(.09*(Xs£-Xao));",";Yso+INT( .375*(Yaf-Yao));";DI0,l;LB";Y_label$;CHR$(3) 
2260 PRINT "PA";Xsf;",";Yso;";PD" 

2270 FOR Yp-Yso TO Ysf STEP (Ys£-Yao)/10 
2280 PRINT "PA"?Xsf;".";Yp;";YT;" 

2290 NEXT Yp 

2300 PRINT "PU;PA";Xso^-INT(.A*(Xs£-Xso));",";INT( .078*(Ys£-Yso))-»-Ya£;";DIl,0;LB";Tltle$;CHR$(3) 

2310 FOR K-1 TO Num_jlots ! Plot data points 

2320 SELECT K 

2330 CASE 1 

23A0 FOR I-l TO D1 

2350 PRINT "PA";INT(Datal(I,X)*Xacale);",";INT(Datal(I,Y)*Yscale);";" 

2360 PRINT "UC-3, -A, 99, 0,8, 6, 0,0, -8, -6, 0,-99;" ! Plots squares for graph #1 

2370 NEXT I 

2380 CASE 2 

2390 FOR I-l TO D2 

2A00 PRINT "PA";INT(Data2(I,X)*Xscale);'’,";INT(Data2(I,Y)*Yscale);";" 

2A10 PRINT "UCO, -A, 99, -3, A, 3, A, 3, -A, -3, -A, -99;"! Plots diamonds for graph #2 

2A20 NEXT I 

2A30 CASE 3 

2AA0 FOR I-l TO D3 

2A50 PRINT "PA";INT(Data3(I,X)*Xscale) ;",";INT(Data3(I,Y)*Yscele) 

2A60 PRINT "UC-3, -A, 99, 3, 8, 3, -8, -6, 0,-99;" ! Plots triangles for graph #3 

2A70 NEXT I 

2A80 END SELECT 
2A90 NEXT K 

2500 PRINT "PU;PA";Xsf;",";Ysf;";" 

2510 PRINTER IS CRT 

2520 ! Addltlonl plots /End of routines 

2530 Another^plot : I 

25A0 INPUT "Plot another graph? (Yes-1 No-0)" .Replot 

2550 Plot-0 

2560 CLEAR SCREEN 

2570 IF Replot-1 THEN Graph_jparameter 

2580 CLEAR SCREEN 

2590 KEY LABELS ON 

2600 LOAD "TURBoIlAB" , 10 



Figure D6 TPL Program: TURB04 
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10 


! Program: SCAN TEMP 




20 


! Description: Reads thermo-couple omf from channels 


0-5, converts to 


30 


! degrees F, and prints to CRT. 




40 


!Devicea: HP3495A(708) , HP3456A(722) 




50 


I 




60 


CLEAR SCREEN 




70 


DUMP DEVICE IS 711 




80 


DIM Y(5,1:2),T(5) 




90 


INTEGER Run 




100 


DIM Channei$(5)[20] 




110 


Channels (O)*** Atmosphere” 




120 


Channels (l)-”Supply Orifice” 




130 


ChannelS(2)-”Turbine Inlet” 




140 


Channels ( 3 )-”Turbine Outlet” 




150 


Channels ( 4 )-”Compreasor Inlet” 




160 


ChannelS(5)-”Compressor Outlet” 




170 


t 




180 


PRINT ’’Turbocharger Lab Temperature Readings.” 










200 


Run"Run+ 1 




210 


PRINT 




220 


PRINT ’’Run number :”;Run 




230 


PRINT USING ”K.11X,K.3X,K”; ’’Location”, ’’Channel 


Temperature (F)” 


240 


PRINT 




250 


OUTPUT 722:”T3” 




260 


FOR C*0 TO 5 ’Reading temperature 


channels 0-5 


270 


OUTPUT 708 USING ”DDD”;C 




280 


TRIGGER 722 




290 


ENTER 722;T(C) 




300 


T(C.1)-C 




310 


Y(C,2)-FNT(T(C)*1000) !Uaer defined function applied 


320 


IF Y(C,2)<ABS(.l) THEN 




330 


Y(C,2)-0 




340 


END IF 




350 


PRINT USING ”20A,2X.DD.llX,5D.D”;ChannelS(C),Y(C,l) 


CM 

U 

>* 


360 


NEXT C 




370 


CLEAR 722 




380 


INPUT ’’Enter: 1-Rescan 0-Qult” .Rescan 




390 


IF Rescan-1 THEN Scan 




400 

A 1 O 


LOAD ”TURBO_MENU” , 10 




% lU 






420 


!User defined function to convert voltage readings from temperature probes 


430 


!to temperature values in degrees F. 




440 


DEF FNT(V) 




450 


Sl-32. 144+35. 77*V-.4518*V^2 




460 


S2-33 . 252+34 . 86*V- . 1855*V^2 




470 


IF Sl<100 then 490 




480 


S1-S2 




490 


RETURN SI 




500 


FNEND 





Figure D7 TPL Program: SCAN_TEMP 
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10 'Program: TURBO^MENU 

20 iDescriptlon; Program provides Function Key menu for program selection. 



30 


CLEAR SCREEN 




40 


ON KEY 


1 LABEL "TURBOl” GOTO Turbol 




50 


ON KEY 


2 LABEL ”TURB02” GOTO Turbo2 




60 


ON KEY 


3 LABEL "TURB03” GOTO Turbo3 




70 


ON KEY 


4 LABEL •’TURB04'’ GOTO TurboA 




80 


ON KEY 


5 LABEL ’‘SCAN TEMP ” GOTO Temp 




90 


ON KEY 


6 LABEL '• *• GOTO Hold 




100 


ON KEY 


7 LABEL “MAIN MENU” GOTO Main 




110 


ON KEY 


8 LABEL “EXIT MENU” GOTO Exit 




120 


! 






130 


PRINT •’ 


Turbocharger Data Acquisition Lab” 




140 


PRINT 






150 


PRINT •’ 


Item: Select 


Function 


160 


PRINT 






170 


PRINT *• 


TURBOl: Collect, reduce and 


FI” 


180 


PRINT ” 


store RAW Data” 




190 


PRINT 






200 


PRINT •• 


TURB02: Tabulate RAW Data 


F2” 


210 


PRINT 






220 


PRINT ” 


TURB03: Tabulate REDUCED Data 


F3” 


230 


PRINT 






240 


PRINT •’ 


TURB04: Plot REDUCED Data 


F4” 


250 


PRINT 






260 


PRINT '• 


SCAN^TEMP: Scan temperature probs 


F5” 


270 


PRINT 






280 


PRINT •’ 


Main Menu 


F7” 


290 


PRINT •• 


Exit Menu 


F8” 


300 


! 






310 


Bold: 


1 





320 GOTO Hold 
330 Turbo!: ! 

340 LOAD ’’TURBOl'MO 
350 Turbo2: ! 

360 LOAD ”TURB02”,10 
370 Turbo3: ! 

380 LOAD "TURBO3’M0 
390 Turbo4 : ! 

400 LOAD **TURBO4’\10 
410 Temp: ! 

420 LOAD ”SCAN_TEMP’M0 
430 Discrepancies: I 
440 LOAD "DISCREP^DOC” , 10 
450 Main: ! 

460 MASS STORAGE IS ’VWORKSTATIONS” 
470 . LOAD "AUTOST'MO 

400 Exlt:CLEAR SCREEN 
490 END 



Figure D8 TPL Program; TURBO_MENU 
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10 ITitle: A_AA31T 

20 lAuthor: R.P. Shreove (Rev, 12/3/89) 

30 fUpdated: R.A. Wendland (12/12/91) 

AO ! Program: Performance calculations for turbine for varying 

SO ! Alphal . 

60 ! 

70 CLEAR SCREEN 

80 DUMP DEVICE IS 711 

90 KEY LABELS OFF 

100 DIM A(7.15),B(7,15).C(7,15),R(15),S(15),Alphal(15) 

110 DEG ! All angles in degrees 

120 INPUT ’'Print results to CRT or Printer? (CRT-1, Printer-0): ’',Crt 
130 IF Crt-1 THEN 150 

lAO PRINTER IS 711 

150 ! Input data 

160 R9-.08 

170 P9-1 

180 Q9-517.8 

190 PO-2 

200 P2-1 

210 TO-560 

220 UO-800 

230 Bl-IA 

2A0 ! Al-75 ! Program modified for Alphal iteration 

250 Gl-l.A 

260 GO-32.174 

270 K9-.98 

280 NO-35000 

290 INPUT "Enter R*: ”.R0 

300 INPUT "Enter Alphal (deg): min, max, step sire — > ",L1,L2,L3 

310 ! Calculate needed quantities — — — — -- — — — 

320 V0-109.82*SQRT(T0) 

330 X3-U0/V0 

340 P4-P2/P0 

350 R8-R9* ( PO / P9 ) / ( TO /Q9 ) 

360 I Calculate performance 

370 I-l 

380 L4-0 

390 FOR Al-Ll TO L2 STEP L3 

400 C50SUB Non_dimension 

410 T8-T9*T0 

420 H0-(V0*V0/(2*G0))*T9/550 

430 P1-P3*P0 

440 T1-S1*T0 

450 T2-S2*T0 

480 V1-X1*V0 

470 V2-X2*V0 

480 W1-X5*V0 

490 W2-X6*V0 

500 WO-Hl/HO 

510 X9-Xl*COS(Al) 

520 A9-(W0*144/(R8*V0) )/(X9*(l-X9^2)^(l/(l-Gl) )*K9) 

530 R7-(360^U0)/(PI*N0) 

540 B9-A9/(2*PI*R7) 

550 PRINT "R^-" ; RO ; "RM-" ; R7 ; "H-" ; H9 ; "WO-" ; WO 

560 ! Store data in array 

570 R(I)-R0 

580 S(I)-R1 

590 Alphal(I)-Al 

600 A(1.I)-N1 

610 A(2,I)-N2 

620 A(3,I)-H0 

630 A(4,I)-T8 

640 A(5,I)=P1 

650 A(6.I)-T1 

Figure D9 TPL Program: A_4431T 
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660 A(7,I)-T2 

670 

680 B(2,I)-W1 

690 B(3,I)-V2 

700 B(A,I)-W2 

710 B(5,I)-B1 

720 B(6,D— A2 

730 B(7,I) — B2 

740 C(1.I)-Z1 

750 C(2,I)-Z2 

760 C(3,I)-M3 

770 C(4,I)-M4 

780 C(5,I)-M5 

790 C(6.I)-M6 

600 C(7,I)-0 

810 I-I+l 
820 L4-L4+1 

830 NEXT A1 

640 ! Print data 

650 PRINT USING *7.K,5D.2D.K.5D.2D.K,6D.K**;"PT0-*’,P0/’ P2-’*,P2/* ATO. TTO-'MO," DEG. R” 

860 PRINT USING *7 .K, 6D.K. /*' ; "WHEEL VEL.-",UO," FT/SEC." 

670 FOR I-l TO L4 

660 PRINT USING "K, 5D" ; "ALPHA1-" , AlphalC I) 

690 NEXT I 

900 PRINT USING '7 ,K,K,K,K.K,K.K,K,K" ; " ETA T-S**," ETA T-T", " HP/LB " DELTW *' /’ PI ” , " 

910 FOR I-l TO L4 

920 PRINT USING *‘4D.3D,4D.3D,3D,4D,3D,4D,3D.4D,5D.2D,5D,2D.5D.2D,3D.4D*’;A(1,I) ,A(2, 1) ,A(3,I) ,A( 

930 NEXT I 

940 PRINT USING ”/ ,K,K.K.K.K.K.K,K.K"; " VI *7" W1 *7" V2 " W2 *7” BETAl ” 

950 FOR I-l TO L4 

960 PRINT USING ”6D,D, 6D.D, 6D.D, 6D. D, 6D.D, 6D.D, 6D.D, 5D. 2D, 3D. 4D’7B( 1, I) ,B (2, I ) ,B(3 , I ) , B(4 , I ) ,B ( 

970 NEXT I 

960 PRINT USING ”/ ,K,K,K,K,K,K,K,K,K"; ZETA S”, ” ZETA R”, ” MICRIT’7 ” M2CRIT’7 ” MRICRIT”, ” 

990 FOR I-l TO L4 

1000 PRINT USING ”3D. 4D, 3D.4D, 3D. 4D, 3D. 4D, 3D. 4D, 3D. 4D, 6X, 5D. 2D, 3D. 4D*7C( 1 , 1) ,C(2, 1) ,C(3 , 1) ,C(4-, I 
1010 NEXT 1 
1020 GOTO 1410 

1030 ! Subroutine for non-dimension performance calculations 

1040 Non^dimension; ! 

1050 G2-CG1-D/G1 

1060 G3-SQRT((G1+1)/(G1-D) 

1070 T4-P4^G2 

1060 T3-T4+R0.*(l-T4) 

1090 P3-T3^(l/G2) 

1100 Y1-1-T3 

1110 Ml-(2/(Gl-l))*(Yl/(l-YD) 

1120 Z1-.1*M1 

1130 S1-T3+Z1*Y1 

1140 Xl-SQRT(l-Sl) 

1150 X4-X1*C0S(A1) 

1160 B1-ATN((X1*SIN(A1)-X3)/X4) 

1170 X5-X4/C0S(B1) 

1180 T7-S1+X5"2 

1190 T5-S1*(P4/P3)^G2 

1200 Y6-T7-T5 

1210 M2-(2/(Gl-l))*Y6/T5 

1220 Z2-.2*M2 

1230 S2-T5+Z2*Y6 

1240 X6-SQRTCT7-S2) 

1250 B2-X4/X6 

1260 B2-ATN ( SQRT ( 1-B2"2 ) /B2 ) 

1270 A2-ATN((X6*SIN(B2)-X3)/X4) 

1280 X2-X4/COS(A2) 

1290 S3-S2+X2"2 

1300 T9-1-S3 
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1310 Nl-T9/(1-T4) 

1320 P5-PA*(S3/S2)"(1/G2) 

1330 T6-P5^G2 

1340 M2-T9/(l-T6) 

1350 R1-(S1-S2)/(1-S3) 

1360 M3-X1^G3 

1370 M4-X2*G3’*SQRT( 1/S3 ) 

1380 M5-X5^G3^SQRT( 1/T7 ) 

1390 M6-X6*G3^SQRT(1/T7) 

1400 RETURN 

1410 DISP ’’Press F2 to exit, press F3 for another run” 
1420 PRINTER IS CRT 
1430 PAUSE 

1440 LOAD ”DESIGN_MENU” , 10 
1450 END 
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10 !Tltle: R_AA31T 

20 {Author: R.P. Shreove (Rev. 12/3/89) 

30 {Updated: R.A. Wendland (11/30/91) 

AO {Program: Performance calculations for turbine for varying 

50 ! theoretical degree of reaction. 

60 { 

70 CLZAR SCREZU 

80 DUMP DEVICE IS 711 

90 KEY LABELS OFF 

100 DIM A(7.15),B(7,15).C(7.15),R(15),S(15) 

110 INPUT ’'Print results to CRT or Printer? ((7RT-*1, Printer*0): ”,Crt 
120 IF Crt-1 THEN lAO 
130 PRINTER IS 711 

lAO ! Input data 

150 R9-.08 

160 P9-1 

170 Q9-517.8 

180 PO-2 
190 P2-1 

200 TO-560 

210 UO-800 

220 Hl-IA 

230 Al-75 

2A0 Gl-l.A 

250 GO-32. 17 A 

260 K9-.98 

270 NO-35000 

280 !“' — Calculate needed quantities 

290 VO-109 . 82*SQRT ( TO ) 

300 X3-U0/V0 

310 PA-P2/P0 

320 R8-R9* ( PO / P9 ) / ( TO /Q9 ) 

’330 DEG 

3A0 f— - Calculate performance — — — 

350 INPUT "Enter R*: min, max, step size",Ll,L2,L3 
360 I-l 

370 LA-0 

380 FOR RO-Ll TO L2 STEP L3 

390 (^SUB Non_dimension 

AOO T8-T9*T0 

A 10 HO- ( V0*V0 / ( 2*G0 ) ) ♦TO / 550 

A20 P1-P3*P0 

A30 T1-S1*T0 

AAO T2-S2*T0 

A50 V1-X1*V0 

A 60 V2-X2*V0 

A70 W1-X5*V0 

A80 W2-X6*V0 

A90 WO-Hl/HO 

500 X9-Xl*COS(Al) 

510 A9-(W0*1AA/(R8*V0))/(X9*(1-X9"2)"(1/(1-G1))*K9) 

520 R7- ( 360*U0 ) / ( PI*N0 ) 

530 H9-A9/(2*PI*R7) 

5 AO PRINT ”R*-’' ; RO ; "RM-’' j R7 ; ’’H- ' ; H9 ; ’‘WO-’’ ; WO 

550 ! Store data in array 

560 R(I)-R0 

570 S(I)-R1 

580 A(1,I)-N1 

590 A(2,I)-N2 

600 A(3,I)-H0 

610 A(A,I)-T8 

820 A(5,I)-P1 

630 A(6,I)-T1 

6A0 A(7,I)-T2 

650 B(1.I)-V1 
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660 B(2,I)-W1 

670 B(3,I)-V2 

680 B(4,I)-W2 

690 B(5,I)-B1 

700 B(6,I)— A2 

710 B(7.D— B2 

720 C(1.I)-Z1 

730 C(2,I)-Z2 

740 C(3,I)-M3 

750 C(4,I)-M4 

760 C(5.I)-M5 

770 C(6,I)-M6 

780 C(7,I)-0 

790 I-I+l 
800 L4-L4+1 

810 NEXT RO 

820 ! Print data 

830 PRINT USING •'/,/,/,/ ,K, 5D . 2D ,K, 5D .2D , K, 6D ,K” ; "PT0-" , PO , " P2-”,P2," ATO. TT0-'*,T0 . ” 

840 PRINT USING 'V , K, 6D , K, 5D , K” ; '‘WHEEL VEL.-",U0," FT/SEC. ALPHA1-" , A1 , " DEG." 

850 PRINT USING ”/, /,K,K,K,K,K,K,K,K,K" ETA T-S"," ETA T-T" , " HP/LB " . " DELTW PI " , " 

860 FOR i-1 TO L4 

870 PRINT USING "4D. 3D , 4D . 3D , 3D. 4D , 3D. 4D, 3D . 4D. 5D . 2D , 5D . 2D. 5D. 2D, 3D. 4D" j A( 1 , I) , A( 2 , I ) , A( 3 . I ) , A( 4 
880 NEXT I 

890 PRINT USING *7 , / .K.K.K.K.K.K.K.K.K" ; " VI " , ” W1 ** , " V2 " , ” W2 " . " BETAl ", 
900 FOR I-l TO L4 

910 PRINT USING "6D .D. 6D .D. 6D .D. 6D.D, 6D .D. 6D .D, 6D.D , 5D.2D, 3D . 4D" ;B( 1 , I) , B(2 , I ) , B(3 , I ) , B( 4 , I ) ,B( 5 
920 NEXT I 

930 PRINT USING '7 . / .K.K.K.K.K.K.K.K.K” ;** ZETA S", " ZETA R*7" MICRIT" , " M2CRIT".” MRICRIT",” 
940 FOR I-l TO‘L4 

950 PRINT USING "3D . 4D, 3D . 4D. 3D . 4D. 3D. 4D»3D. 4D , 3D . 4D, 8X, 5D .2D. 3D. 4D” ;C( 1. I ) ,C(2, I ) ,C(3 , I ) ,C(4 , I ) 
960 NEXT I 

970 GOTO 1360 

980 f-— — Subroutina for non-dlmanalon parforraanca calculations 

990 Non dlmanslon: ! 

1000 G2-(G1-1)/G1 

1010 G3-SQRT((G1+1)/(G1-D) 

1020 T4-P4^G2 

1030 T3-T4+R0*(l-T4) 

1040 P3-T3"(l/G2) 

1050 Y1-1-T3 

1060 Ml-(2/(Gl-l))*(Yl/(l-YD) 

1070 Z1-.1*M1 

1080 S1-T3+Z1*Y1 

1090 Xl-SQRT(l-Sl) 

1100 X4-Xl*COS(Al) 

1110 B1-ATN((X1*SIN(A1)-X3)/X4) 

1120 X5-X4/C0S(B1) 

1130 T7-S1+X5*2 

1140 T5-S1*(P4/P3)^G2 

1150 Y6-T7-T5 

1160 M2-(2/(Gl-l) )*Y6/T5 

1170 Z2-.2*M2 

1180 S2-T5+Z2*Y6 

1190 X6-SQRT(T7-S2) 

1200 B2-X4/X6 

1210 B2-ATN(SQRT(1-B2^2)/B2) 

1220 A2-ATN ( ( X6*SIN ( B2 ) -X3 ) /X4 ) 

1230 X2-X4/COSCA2) 

1240 S3-S2+X2*2 

1250 T9-1-S3 

1260 Nl-T9/(1-T4) 

1270 P5-P4*(S3/S2)"(1/G2) 

1280 T6-P5^G2 

1290 N2-T9/(l-T6) 

1300 R1-(S1-S2)/(1-S3) 
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1310 M3-X1*G3 

1320 M4-X2^G3^SQRT ( 1/S3 ) 

1330 M5-X5^G3*SQRT( 1/T7 ) 

1340 M6-X6*G3*SQRT<1/T7 ) 

1350 RETURN 

1360 DISP "Press F2 to exit, press F3 for another run" 
1370 PAUSE 

1380 LOAD "DESIGN_MENU",10 
1390 END 
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10 ITitle: TURB3 

20 !Author: R. P. Shreeve (09/01/88) 

30 !Updated: R. Wendland, LCDR. USN (12/12/91) 

AO IProgram: Calculate and draw turbine blade profiles. 

50 ! 

60 DEG 

70 DUMP DEVICE IS 711 

80 CLEAR SCREEN 

90 KEY LABELS OFF 

100 !- — -- Input Graph parameters 

110 INPUT ’’Plotting STATOR or ROTOR? (stator-0, rotor-1): ’’.Type 
120 IF Type-1 THEN 
130 TypeS-”ROTOR” 
lAO ELSE 

150 Type$-”STATOR” 

160 END IF 

170 PRINT ’’Input axis coordinates for ”;TypeS;” blade profile plot:" 
180 IF Type-0 THEN 

190 INPUT ’’Enter Xa (nominal -1.0): ”,Xa 

200 INPUT ’’Enter Xb (nominal 3.0): ”,Xb 

210 Type-1 

220 ELSE 

230 INPUT ’’Enter Xa (nominal 3.0); ”,Xa 

2A0 INPUT ’’Enter Xb (nominal -1.0): ”,Xb 

250 Type— 1 

260 END IF 

270 Ya— .2 

280 Yb-ABS (Xa-Xb ) /RATIO+Ya 

290 PRINT 

300 PRINT **Axls coordinates:” 

310 PRINT ” Xs - ”.Xa 

320 PRINT Xb - ”.Xb 

330 PRINT •• Ya - ”,Ya’ 

3A0 PRINT ” Yb - ”,Yb 

350 PRINT 

360 — Input Data 

370 PRINT ’’Enter all angles in degrees.” 

380 INPUT ’’Enter T.E. wedge angle (epsilon): ",E1 
390 INPUT ’’Enter T.E. radius /spacing: ",R8 

AOO INPUT ’’Enter output relative flow angle (alpha2 or beta2): ",B3 
AlO B3-B3*Type 

A20 ! EQ. 26 

A30 A5-COS(B3)-8*R8*(1-B3/90) 

AAO A0-COS(B3)-8*R8*(1-ATN(SQR(1-A5"2)/A5)/90) 

A50 IF ABS(A0-A5)<. 00001 THEN A80 
A 60 A5-A0 

A70 GOTO AAO 

A80 INPUT ’’Enter inlet rel. flow angle(alphal or betal): ”,B2 
A 90 B2— B2*Type 

500 INPUT ’’Enter L.E. radius /spacing (le/S): ”,R9 

510 INPUT ’’Enter L.E. wedge angle (delta): ”,D1 

520 INPUT ’’Enter axial chord/spacing: ”,B0 

530 ZO-2*(TAN(B3)+TAN(B2))*COS(B3)^2/BO 

5A0 SO-1 

550 B1-B2-10 

560 IF Dl>20 THEN 580 

570 B1-B2-D1/2 

580 Gl-Bl+Dl 

590 A9-(A0+2*R8)/S0 

600 E2-E1/2 

610 A8-A9 / ( 1 +TAN ( E2 ) ^ 2 ) 

620 A8-A8-SQR(A8"2-(A9"2-TAN(E2)"2)/(1+TAN(E2)"2) ) 

630 A1-ATN(A8/SQR(1-A8^2)) 

6A0 R1-(BO-R8*(1+COS(A1+E1))-R9*(1+SIN(B1) ))/(COS(Al+El)+SIN(Bl) ) 

650 R2-SO*COS (Al+El ) /SIN( El )+R8 
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660 

670 

680 

690 

700 

710 

720 

730 

7A0 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 



Turbine Blade Profile” 



EO-1/ ( l+SINCGl-Al-El ) ) 

FO-(SIN(G1-A1-E1)+COS(D1))/(1+SIN(G1-A1-E1) ) 
GO-(2*(COS(Dl/2))"2)/(l+SIN(Gl-Al-ED) 

R3-A0*E0^ (COS (G1)*(SIN(A1+E1) -SO/AO ) -SINCGl ) ^C0S(A1+E1 ) )+Rl*F0+R9^G0 

I PRINT DATA - 

PRINTER IS 711 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



*For 



Axial Chord ■ 
Blade Spacing - 
Exit Width 
L.E. Radius - 
Radius ■ 
Wedga Angle- 
Wedge Angle- 



T.E, 

L.B. 

T.E. 



BO 

SO 

AO 

R9 

R8 

D1 

El 



"Dasign Rel. Inlet Flow Angle 
"Design Ral. Outlet Flow Angle 
"Zweifal Coefficient 



-B2*Type 

B3*Type 

ZO 



870 

880 

890 


PRINT 

PRINT 

PRINT "Calculated 


Blade 


Parameters : " 


gUU 

910 


rnx 11 X 

PRINT " 


Alpha 


m 


";A1 


920 


PRINT " 


Beta 


• 


";B1 


930 


PRINT " 


Gamma 


- 


”;G1 


940 

950 


PRINT 
PRINT " 


R1 


* 


";R1 


960 


PRINT " 


R2 


m 


";R2 


970 


PRINT " • 


R3 


m 


";R3 


980 

990 

1000 

1010 


PRINT 
PRINT 
PRINTER IS 
OISP "Press 


CRT 
F2 to 


view plot, F3 for new 


1020 


PAUSE 









for new inputs and recalculate values. 



1030 

lOAO 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 



CLEAR SCREEN 

! Calculate and Plot data to CHIT screen 

! Graph parameters: 

X^r an g e-»Xb - X a 

Y"range-Yb-Ya 

Dx»10 

Dy-10 

GINIT 

PEN 4 

LORG 8 

MOVE 100*RATIO/2,100 

LABEL Type$;" Blade Profiles" 

CSIZE 3.5 

MOVE 100*RATIO/2,0 
LORG 4 

LABEL "Meridian Plane" 

LDIR 90 
LORG 6 
MOVE 0,50 
LABEL "Chord" 

LDIR 0 
LORG 2 

VIEWPORT 10, 95*RATIO, 10.95 
FRAME 

WINDOW Xa.Xb.Ya.Yb 
AXES X_range/Dx, Y_range/Dy ,Xa, Ya 
AXES X_range/Dx, Y_range/Dy ,Xb, Yb 
CLIP OFF 
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1310 CSIZE 3 . 0 ,. A 
1320 LORG 6 

1330 FOR I-Xtt TO Xb STEP X_range/Dy 
13 AO MOVE I,Ya-.Ol*Y_rango 
1350 LABEL USING "#,MD.DD" ; I 
1360 NEXT I 
1370 LORG 8 

1380 FOR I-Ya TO Yb STEP Y_range/Dy 
1390 MOVE Xa-.01'*X__range,I 
lAOO LABEL USING ”#,MD.DD";I 
lAlO NEXT I 
1420 Kl-0 

1430 ! Tpailing Edge 

1440 T2— A1 

1450 T3-180-A1-E1 

1460 T4-<T3-T2)/20 

1470 FOR T1-T2 TO T3 STEP T4 

1480 X— R8^SIN(T1) 

1490 Y-R8*( 1-COS (TD) 

1500 PLOT X,Y 
1510 NEXT T1 

1520 ! Pressure Side 

1530 XI— (R1+R8)*SIN(A1+E1) 

1540 Y1-R8+ (R 1+R8 ) *COS < Al+El ) 

1550 T2— 90+Al+El 

1560 T3-B1 

1570 T4-(T3-T2)/20 

1580 FOR T1-T2 TO T3 STEP T4 

1590 X-X1+R1*C0S(T1) 

1800 Y-Y1+R1*SIN(T1) 

1810 PLOT X.Y 
1820 NEXT T1 

1830 ! Tip Radius 

1840 X4-X1+ (R1+R9 ) *COS ( B1 ) 

1850 Y4-Y1+(R1+R9)*SIR(B1) 

1660 T2— B1 

1670 T3-180-G1 

1680 T4-(T3-T2)/20 

1690 FOR T1-T2 TO T3 STEP T4 

1700 X-X4-R9^C0S(T1) 

1710 Y-Y4+R9*SIN(T1) 

1720 PLOT X.Y 
1730 NEXT T1 
1740 X6-X 
1750 Y6-Y 
1760 PENUP 

1770 ! Suction Side 

1780 PEN 4 

1790 X2— (R2-R8)*SIN(A1) 

1800 Y2-R8+(R2-R8 )*COS( A1 ) 

1810 T2-0 

1820 T3-E1 

1830 T4-(T3-T2)/20 

1840 FOR T1-T2 TO T3 STEP T4 

1850 X-X2+R2*SIN(T1+A1) 

1860 Y-Y2-R2*C0S(T1+A1) 

1870 PLOT X.Y 
1880 NEXT T1 

1890 I Suction Side Radius R3 

1900 X5-X2+R2*SIN(E1+A1) 

1910 Y5-Y2-R2*C0S(E1+A1) 

1920 X3-X5-R3*SIN(E1+A1) 

1930 Y3-Y5+R3*C0S(E1+A1) 

1940 T2— (90-Al-El) 

1950 T3«K51 

Figure Dll (cent) TPL Program: 
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1960 T4-(T3-T2)/20 

1970 FOR T1-T2 TO T3 STEP T4 

1980 X-X3+R3*C0S(T1) 

1990 Y-Y3+R3*SIN(T1) 

2000 IF Y<Y6 THEN 2060 
2010 PENUP 
2020 PRINT 

2030 PRINT "Thea« values give discontinuous slope on suction side" 

2040 PRINT 

2050 GOTO 370 

2060 PLOT X.Y 

2070 NEXT T1 

2080 PLOT X6,Y6 

2090 PENUP 

2100 IF Kl-1 THEN 2140 
2110 Kl-1 

2120 WINDOW Xa-S0.Xb-S0.Ya,Yb 
2130 GOTO 1430 

2140 I Area Progression Thru Passage 

2150 WINDOW Xa,Xb,Ya,Yb 
2160 X7-L1+S0 

2170 Y7-Y1 

2180 T2— (90-Al-El) 

2190 T3-B1 

2200 T4-(T3-T2)/20 

2210 PEN 7 

2220 LINE TYPE 5 

2230 FOR T1-T2 TO T3 STEP T4*2 

2240 X-X7+ (R1 -AO ) *COS ( T 1 ) 

2250 Y-Y7+ ( Rl-AO ) *SIN ( T 1 ) 

2260 PLOT X,Y 

2270 NEXT T1 

2260 DUMP GRAPHICS 

2290 DISP "F2 to continue ” 

2300 PAUSE 
2310 CLEAR SCREEN 

2320 INPUT "Calculate blade number? (1-Yes, 0-No): ",N0 



2330 


IF NO-0 THEN 2470 






2340 


PRINTER IS 711 






2350 


INPUT "Enter axial chord 


(in.): 




2360 


INPUT "Enter mean radius 


(in.): 




2370 


S-B/BO 






2380 


Z1-2*PI*R5/S 






2390 


B-B0*S 






2400 


A-A0*S 






2410 


PRINT 






2420 


PRINT "Axial chord 




in 


2430 


PRINT "Blade space - 


M ;S.M 


in 


2440 


PRINT "Throat width ^ - 


";A;" 


in 


2450 


PRINT "Number of blades - 


";Z1 




2460 


PRINTER IS CRT 







2470 DISP "F2 to exit, F3 for enother run" 
2480 PAUSE 

2490 LOAD "DESIGN_MENU",10 
2500 END 
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10 f Title: TURB4 

20 ! Author: R. P. Shroeve (09/01/88) 

30 ! Updated: R. A. Wendland, LCDR, USN, (12/17/91) 

40 ! Program: Calculate blade height and losaeaa for given mean 

50 ! lina conditions for a single stage axial turbine 

60 ! 

70 DIM 0(3,17) 

80 CLEAR SCREEN 

90 PRINTER IS CRT 

100 DUMP DEVICE IS 711 

110 KEY LABELS OFF 

120 ! Design Input Data 

130 PRINT “Input data from program 4431T:“ 

140 INPUT “Entar PtO (psia): “,P0 

150 INPUT “Enter TtO (deg R): “,T0 

160 INPUT “Enter delta Tw (DELTW deg R) : “,J0 

170 INPUT “Enter w dot (Ibs/sec): “,W0 

180 ! Gas Properties 

190 R4-53.393 

200 G9-1.4 

210 C9-.24 

220 J9-778 

230 G8-32.174 

240 I Velocity Diagram Date 

250 DEG 

260 INPUT "Enter Alpha_e (deg): “,L3 
270 INPUT “Enter delta alpha (dag): ",L4 
280 INPUT “Enter Mlcr: “.Ml 
290 INPUT “Enter Beta_e (deg): “,B3 
300 INPUT "Enter delta beta (deg): “,B4 
310 INPUT “Enter M'crl: ",M3 
320 INPUT “Enter M*cr2: “,M4 

330 I-—— Stator Blade Data — — — 

340 CLEAR SCREEN 

350 PRINT "Input STATOR blade data from TURB3:" 

360 INPUT “Enter number of blades ( 2 ): ",Z1 

370 INPUT “Enter throat width (a): “,A 

380 INPUT "Enter axial chord (b): “,B 

390 INPUT "Enter blade spacing (S): “,S 

400 INPUT “Enter blada chord (c): “,C 

410 INPUT “Enter trailing edge thickness (ts): “,T7 

420 INPUT "Enter maximum blade thickness (tmax): “,T8 

430 INPUT “Enter tip clearance (delta t): ",T9 

440 ! Analysis of the Stator 

450 K-1 

460 CLEAR SCREEN 

470 INPUT “Enter STATOR profile loss (fig 15 (ref: 1174VA1)): “,S1 
480 S9-2^S1 

490 NO-1 

500 X8-M1" 2* (G9- 1 ) / (G9+1 ) 

510 X9-X8/(l-S9) 

520 R0-P0*144/(R4*T0) 

530 V0-SQR(2^C9*T0*G8*J9 ) 

540 P5-( 1-X9 ) " (G9/ (G9- 1 ) ) 

550 T5-1-X8 

560 T1-T5*T0 

570 P1-P5*P0 

580 R1-R0^P5/T5 

590 ! Ra into stator 

600 X6-X8*(COS(L3)/COS(L3-L4))'‘2 

810 T-1-X6 

620 P-T"(G9/(G9-D) 

830 R-R0*P/T 
640 J1-T*T0 

650 M8-1. 153E-5^.06333*SQR(J1)/(198.72/J1+1) 

Figure D12 TPL Program: TURB4 
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660 


R9-SQR(X6 ) *V0*R*C/ (M8* 12 ) 




670 


Q8-R0*V0*SQR(X9)*(1-X9)*(1/(G9-D) 


680 


D8-L4 




690 


D7-L3 




700 


M-SQR((2/(G9-1))*X8/(1-X8)) 




710 


PRINT 




720 


PRINT 




730 


PRINT ’’STATOR Blade Analysis:” 




740 


PRINT ” ’' 




750 


PRINT 




760 


GOSU6 Blading^loss 




770 


IF ABS(S9-S6)<.002 THEN 840 




780 


PRINT ’’Above results are for interation 


790 


S9-S6 




800 


NO-NO+1 




810 


GOTO 510 




820 


PRINT 




830 


PRINT 




840 


PRINT ” Blade height - ”;H9; 


” in.” 


850 


PRINT ” Exit press. - ”;P1; 


” psia” 


860 


PRINT ” Exit temp. - ”;T1; 


” deg R” 


870 


PRINT 




880 


PRINT 




890 


PRINT 




900 


0(K.16)-P1 




910 


0(K,17)-T1 




920 


DISP ”F2 to continue” 




930 


PAUSE 




940 






1 ROCrOlT oLAQ# USud 




950 


K-2 




960 


PRINT ” Input ROTOR blade data 


from TURB3 


970 


INPUT ”Enter number of blades 


(2): ”.Z1 


980 


INPUT ”Enter throat width (a): 


".A 


990 


INPUT ’’Enter axial chord (b): 




1000 


INPUT ”Enter blade spacing (S) 


: 


1010 


INPUT ’’Enter blade chord (c): 


”,C 



1020 INPUT ’’Enter trailing edge thickness (ts): ”,T7 
1030 INPUT ’’Enter maximum blade thickness (tmax): ”,T8 
1040 INPUT ’’Enter tip clearance (delta t): ",T9 

1050 INPUT ’’Enter ROTOR profile loss (fig 15, ref: 1174VA1): ”,S1 
1060 S9-3*S1 

1070 NO-1 

1080 G7-(G9-1)/(G9+1) 

1090 Y8-M4^2*G7 

1100 Y9-Y8/(l-S9) 

1110 T4-( 1-G7^M1"2 ) / ( 1-G7*M3"2 ) 

1120 P4-(T4/T5)"(G9/(G9-D) 

1130 R3-P4*P5^R0/T4 

1140 W3-V0*SQR(T4) 

1150 P6-(1-Y9)^(G9/(G9-D) 

1160 T6-1-Y8 

1170 P2-P6*P4*P1 

1180 T2-T6*T4*T0 

1190 ! Re into ROTOR 

1200 M8-1 . 153E-5* . 06333*SQR(T1 )/ ( 198. 72/Tl+l ) 

1210 Y7-M3^2*G7 

1220 R9-SQR(Y7)*W3*R1*C/(M8*12) 

1230 Q8-R3^W3*SQR(Y9)*(1-Y9)"(1/(G9-D) 

1240 D8-B4 

1250 D7-B3 

1260 M-SQR( (T4/T5-1)*2/(G9-D) 

1270 PRINT 
1280 PRINT 

1290 PRINT ’’ROTOR Blade Analysis:” 

1300 PRINT ” 

Figure D12 (cont) TPL Program: TURB4 
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1310 PRINT 

1320 GOSUB Bisdlng_loss 

1330 IF ABS(S9-S6)<.002 THEN 1380 

1340 PRINT "Above results are iteration ";N0 

1350 S9-S8 

1360 NO-NO+1 

1370 GOTO 1100 

1380 PRINT 

1390 PRINT 

1400 PRINT " Blade height - ";H9;" in." 

1410 PRINT " Exit press. - ";P2;" psie" 

1420 PRINT " Exit temp. - ";T2;" deg R" 

1430 PRINT 

1440 PRINT 

1450 PRINT 

1460 0(K,16)-P2 

1470 0(K,17)-T2 

1480 DISP "F2 to continue" 

1490 PAUSE 

1500 I-—- Calculate Stage Performance 

1510 K-3 

1520 P8-P0/P2 

1530 P9-P2*( (TO-JO) /T2)" (G9/ (G9-1) ) 

1540 P9-P0/P9 

1550 E8-T0* ( 1- ( 1/P8 ) " ( (G9-1 ) /G9 ) ) 

1560 E8-J0/E8 

1570 B9-T0* < 1- ( 1/P9 ) " ( (G9- 1) /G9 ) ) 

1580 E9-J0/E9 

1590 PRINT 

1600 PRINT "Stage Performance;" 

1610 PRINT " 

1620 PRINT 

1630 PRINT " Pressure Ratio <T-S) - ";P8;" Efficiency (T-S) - "jEO 

1640 PRINT " Pressure Ratio (T»T) - ";P9;" Efficiency (T-T) - ";E9 

1650 PRINT 

1660 PRINT 

1670 0(K,1)-Pa 

1680 0(K,2)-E8 

1690 0<K,3)-P9 

1700 0(K,4)-E9 

1710 I—— Print Results 

1720 PRINT "Data to be printed on Printer." 

1730 PRINT " — Ensure paper is correctly set, press F2 to continue." 

1740 PAUSE 

1750 PRINTER IS 711 

1780 PRINT 

1770 PRINT 

1780 PRINT TAB ( 27 )* "Single Stage Axial Turbine Design" 

1790 PRINT TAB(27);" 

1800 PRINT 
1810 PRINT 

1820 PRINT TAB(41);"Stator";TAB(61);"Rotor" 

1830 PRINT TAB(41);" ";TAB(61);" " 

1840 PRINT 

1850 PRINT USING "15X.K, IIX. 5D,'l5X, 5D" ; "No. of Blades" ;0( 1 . 8 ) ;0(2, 8) 

1860 PRINT USING "15X,K”;" " 

1870 PRINT 
1880 PRINT 

1890 PRINT TAB( 16 ); "Blade geometry (Inches)" 

1900 PRINT TAB(16);" — ” 

1910 PRINT 

1920 Formatl: IMAGE 15X.K, 5X, D . 3D, 14X, D. 3D 

1930 PRINT USING Formatl ; "Blade Height " , 0( 1 , 7 ) ,0(2 , 7 ) 

1940 PRINT USING Formatl; "Exit Width ".0(1, 9), 0(2, 9) 

1950 PRINT USING Formatl ; "Axial Chord ".0(1, 10) .0(2, 10) 



Figure D12 (cont) TPL Program: TURB4 
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1960 PRINT USING Format 1 ; '’Spacing 
1970 PRINT USING Formatl ; "Chord 
1980 PRINT USING Format 1 ; "T . E. Thickness 
1990 PRINT USING Format 1 ; "Max. Thickness 
2000 PRINT USING Formatl ; "Tip Clearance 
2010 PRINT 
2020 PRINT 

2030 Format2: IMAGE 15X,K, 5X,D. AD, 13X,D. AD 
20A0 PRINT TAB ( 16) ; "Blade Row Performance" 

2050 PRINT TABC16);" " 

2060 PRINT USING Format2 ; "Ref . Profile Loss 
2070 PRINT USING Format2: "Tot . Profile Loss 
2080 PRINT USING Format2; "Sec . Flow Loss 
2090 PRINT USING Format2 ; "Mixing Loss 
2100 PRINT USING Format2; "Tip Clearance Loss 
2110 PRINT USING Format2 ; "Total Loss Coeff. 

2120 PRINT 

2130 Format3: IMAGE 15X,K,5X,3D.2D, 1AX,3D.2D 
21A0 PRINT USING Format3 ; "Exl t Pressure (psla)" ,0( 1 , 16) .0(2, 16) 

2150 PRINT UriNG Formats ; "Exit Temp. (deg R)" ,0(1, 17) ,0(2, 17) 

2160 PRINT 
2170 PRINT 

2180 PRINT TAB(18); "Stage Performance" ; TAB (39) ; "Total-Total" ;TAB( 59) ; "Tot-Statlc 

2190 PRINT TAB(16);" ";TAB(39);" ";TAB(59);" 

2200 PRINT 

2210 PRINT USING Formatl ; "Pressure Ratio " ;0(3,3) ,0(3, 1) 

2220 PRINT USING Format2; "Efficiency " ;0(3 , A ) ,0(3 , 2) 

2230 PRINTER IS CRT 
22A0 GOTO 27A0 

2250 — Blading loss subroutine ■ ' ■ ■ ■' ■ ■ ■' " 

2260 Blading loss: ! 

2270 ! ^“Total Profile Loss 

2280 PRINT "Re - ";R9 

2290 INPUT "Enter K(Re) (fig 23. ref: GA107AVA2): ",K1 
2300 PRINT "Mach# - ";M 

2310 INPUT "Enter K(M) (fig 18. ref: 117AVA1): ",K3 
2320 K2-l+2*(T8/C-.2) 

2330 S2-S1*K1*K2*K3 

23A0 W9-W0*1AA/ (Z1*Q8*A"*2) 

2350 H9-A* (W9* ( 1+ . 77*S2 )+ . 025*S2*D8 ) 

2360 I-—— Secondary Flow Loss 

2370 H5-(S-T7)*CpS(D7)/H9 

2380 S3-S2* . 0323*D8*H5*( 1+ . 962*S2 )/(!-. 03*D8*B5*S2) 

2390 ! Mixing Loss 

2400 S4- (T7 / S+ . 962*S2 )/(!+. 962*S2 ) 

2A10 SA-(COS(D7)*SA/(lrSA))^2 
2A20 SA-S4/(1+SA) 

2A30 !-' Tip Clearance Loss 

2AA0 D6-07-D8 

2A50 D5-ATN((TAN(D6)+TAN(D7))/2) 

2460 S5M:oS(D7)^2*(ABS(TAN(D6)-TAN(D7))'‘1.5/COS(D5)) 

2A70 S5-2.26*S5*T9/(H9*SQR(B/S)) 



2A80 


S5-S5/(l+S5) 




2A90 


1 


Total Losses 




2500 


S6-S2+S3+SA+S5 




2510 


PRINT 


"Ref. Profile Loss 


- ‘’;S1 


2520 


PRINT 


"Tot. Profile Loss 


- ";S2 


2530 


PRINT 


"Sec. Flow Loss 


- ";S3 


2540 


PRINT 


"Mixing Loss 


- ";SA 


2550 


PRINT 


"Tip Clearance Loss 


- ";S5 


2560 


PRINT 






2570 


PRINT 


" Total Loss ■ 


";S6 


2580 


0(K,1) 


-SI 




2590 


0(K,2) 


-S2 




2600 


0(K.3) 


-S3 
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", 0 ( 1 , 11 ). 0 ( 2 , 11 ) 
", 0 ( 1 , 12 ), 0 ( 2 . 12 ) 
”,0(1,13). 0(2, 13) 
",0(1,1A),0(2,1A) 
",0(1,15), 0(2, 15) 



",0(1,1), 0(2,1) 
".0(1, 2), 0(2, 2) 
",0(1,3), 0(2, 3) 
", 0(1, A), 0(2, A) 
",0(1,5), 0(2, 5) 
",0(1,6), 0(2, 8) 
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2630 


0(K,6)-S6 




26A0 


0(K,7)-H9 




2650 


0(K,8)-Z1 




2660 


0(K,9)-A 




2670 


O(K,10)-B 




2680 


0(K,11)-S 




2690 


0(K,12)-C 




2700 


0(K,13)-T7 




2710 


0(K.14)-T8 




2720 


0(K,15)-T9 




2730 


RETURN 




2740 


DISP ’T2 to exit, 


F3 for another run' 


2750 


PAUSE 




2760 


PRINTER IS CRT 




2770 


LOAD •*DESIGN_MENU* 


',10 


2780 


END 
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10 


(Program 


: DESIGN MENU 




20 


(Description: Program to provide Function Key 


menu selection of programs 


30 


( 








AO 


CLEAR SCREEN 






50 


PRINTER IS CRT 






60 


KEY LABELS ON 






70 


ON KEY 1 


LABEL 


”R_AA31T” GOTO R_AA31t 




80 


ON KEY 2 


LABEL 


”a“aA 31T” GOTO A“AA31t 




90 


ON KEY 3 


LABEL 


”TURB3” GOTO Turb3 




100 


ON KEY A 


LABEL 


’•TURBA” GOTO TurbA 




110 


ON KEY 5 


LABEL 


” ” GOTO Hold 




120 


ON KEY 6 


LABEL 


” ” GOTO Hold 




130 


ON KEY 7 


LABEL 


’’MAIN MENU” GOTO Main 




lAO 


ON KEY 8 


LABEL 


’’EXIT MENU” GOTO Exit 




150 


( 








160 


PRINT ’’Turbo-propulsion Design Programs” 




170 


PRINT 








180 


PRINT ’’Item: 


Select 


Function Key” 


190 


PRINT 








200 


PRINT ” 


R AA31T: Parformanc Calculations 


FI” 


210 


PRINT ” 




(Iterate on R*)” 




220 


PRINT ’• 


A AA31T: Performanc Calculations 


F2” 


230 


PRINT ” 




(Iterate on Alpha 1)” 




2A0 


PRINT ” 


TURB3; 


; Draw Blade Profiles 


F3” 


250 


PRINT ” 


TURBA; 


; Blade Height and Loses 


FA” 


260 


PRINT 








270 


PRINT ” 


Main Menu 


F7” 


280 


PRINT ” 


Exit Menu 


F8” 


290 


! 








300 


Hold: ( 









310 GOTO Hold 
320 R_4431t: ! 

330 “load *'R_4431T’*,10 

340 A_4431t: ”l 

350 “load . 10 

360 Turb3: I 

370 LOAD *’TURB3‘*,10 

380 TurbA: I 

390 LOAD ’’TURBA”, 10 

AOO Main: I 

A 10 MASS STORAGE IS ’’/WORKSTATIONS” 
A20 LOAD ”AUTOST”,10 
A30 Exit: CLEAR SCREEN 
AAO END 



Figure 'D13 TPL Program: DESIGN_MENU 
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1 

10 

20 

30 

AO 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

.520 

530 

540 



IProgram: 
tOeacrip: 

I 

tOevicaa : 

IModify : 

I Notes: 

! 

! 

I 
I 
I 

DIM Presa(l:50) 

IDesignete Scenivelve; 

INPUT “Input Scenivelve, 

I 

OUTPUT 722;“6STG10STIT3“ 

CLEAR 701 
! 

FOR Port_reqd-Firat TO Last 
GOSUB Reed 
WAIT .5 

OUTPUT 701 USING "DDD“;V+9 
TRIGGER 722 

ENTER 722;Preaa(Port_reqd) 
CLEAR 701 
NEXT Port^reqd 
CLEAR 722~ 

I 

PRINT “PORT “PRESS (IN. H20)“ 
PRINT 

FOR I-Firet TO Laet 



t Assign errey in Memory. 

Last port First , Lest 

! Set-up BP3456A DVM, 

!Reset BP3495A Scanner. 

tRoutine to reed pressure values. 
I Subroutine to reed Scenivelve 
I port number from BG-78. 

I Set Scanner connect DVM to HG-78 
ITrigger DVM to reed Scenivelve. 
tDVM reeds value, and writes to 
!BP9000 memory. Scanner is reset. 

tReeet DVM. 

tRoutine to print reeulte to the 
tBPOOOO CRT. 



PRINT I,Preee(I)*100000 
NEXT I 
! 

GOTO Finish 



OF MAIN PRCX^RAM***********^^******* 
I 

|♦♦♦*♦e♦★**SUBROUTINE READ AND POSITION SCANIVALVE 



SCAN 

Reeds voltages from designated acanivelve through scanner #1 
end prints to CHIT port # end voltages in pressure (in. Hg). 
BP3495A(701) #1, BP3456A(722) , BG-78(707), Scanivelva( 1-5) 
Using Molye routines. 

Devices BP3495A and BG-78 use specific coirmunication formats 
in the OUTPUT statements by utilizing the image form USING. 

BP3495A; OUTPUT 701 USING “DDD“;V+9 
BG-78: OUTPUT 707 USING “#,K“;V 



First port. 



Reed: ! 

OUTPUT 707 USING "#,K“;V 
P0-SPOLL(707) 

L-BINAND(P0,15) 

T-SBIFT(P0,4) 

M-BINAND(T,7) 

Port_r eed- 10*MtL 
CLEAR 707 

IF Port_read*Port_reqd TBEN Exit 
OUTPUT 701 USING ”DDD";V-1 
• CLEAR 701 
WAIT .1 
GOTO Reed 
Exit: RETURN 

!*********^END OF SUBROUTINES***’ 



tRoutine to call BG-78, ask for tha 
t current port assigned, read tha port 
tnumber, and convert it to decimal 
t format. 

tScanivelve port number in decimal 
t format. . 

tExit subroutine if raqd port selected 
tAdvance S/V to next port 
IRasat Scanner 

!Loop to Read for another port reading 



Finish:.! 

END 



Figure D14 TPL Program: SCAN 



10 SUB Plot 

20 ! Subroutine to display plot screen, less the plots of any curves 

30 I for the specified variables in the COM /Plot^labels/ line. 



AO COM /Plot_labels/ Xo.Xf . Yo, Yf ,Dx 

50 CLEAR SCREEN 

60 KEY LABELS OFF 

70 GINIT 

60 X_rango-Xf-Xo 

90 Y”range-Yf-Yo 

100 LORG 6 

no MOVE lOO^RATIO/2,100 

120 CSIZE 3 

130 LABEL Title$ 

lAO MOVE 100*RATI0/2,0 

150 LORG A 

160 LABEL X_labelS 

170 DEG 

180 LDIR 90 

190 LORG 6 

200 MOVE 0,50 

210 LABEL Y_label$ 

220 LDIR 0 ” 

230 LORG 2 

2A0 VIEWPORT 10, 90*RATIO, 10, 90 
250 FRAME 

260 WINDOW Xo,Xf,Yo,Yf 

270 AXES X rans«/Dz,Y rans*/Dy,Xo, Yo 

200 AXES x“range/Dx.Y“range/Dy,Xf,Yf 

290 GRID X rans«/Dz,Y range/Dy.Xo, Yo 

300 CLIP OFF 

310 CSIZE 3,0,. A 

320 LORG 6 

330 FOR I-Xo TO Xf STEP X range /Dx 
3A0 MOVE I,Yo-.01*y_range 

350 LABEL USING ”#,K”;I 

360 NEXT I 

370 LORG 8 

380 FOR I-Yo TO Yf STEP Y_range/Dy 

390 MOVE Xo-.01*X_range7l 

AOO LABEL USING ”#,K";I 

AlO NEXT I 

A20 CLIP ON 

A30 ! 

A AO SUBEND 



Dy, Titles, X_label$,Y_label$ 



Unitialize graph routine 

{Length of X-exis 

{Length of Y-axis 

{Character ref pt:top center 

{Move cursor to screen loc for labels 

{Sizes labeling 

{Plot title 

{Move cursor to bottom center screen 
{Character ref pt: bottom center 
!X-axis label 
!Desig degrees for LDIR 
{Sets Y-axis label on end 



!Y-axis label 

{Reset label to horizontal orientation. 

{Chr ref pt:left center 

{Sets graph screen size 

{Box around VIEWPORT 

{Set axis lengths in VIEWPORT 

{Axes intersect at lower left 
{Axes intersect et upper right 
Dx,Dy, .001 {Create dot grid background 
{So labels can print outside VIEWPORT 
{Axes label size 
{Number X-axis 



{Number Y-axis 



Figure D15 TPL Subprogram; Plot 
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10 IDato3-FNDate$(TIMEDATE) 

20 DEF FNDataSCSaconda ) 

30 Jullan-Seconds DIV 88A00-1721119 

AO Year-(A*Julian-l) DIV 1A6097 

50 Jullan-(A*Jullan-l) MOD 1A6097 

60 Day-Julian DIV A 

70 Jullan-(A*Day+3) DIV 1A61 

80 Day-(A*Day+3) MOD 1A61 

90 Day-(Day+A) DIV A 

100 Month-(3*Day-3) DIV 133 ! Month 

110 Day-(3*Day-3) MOD 133 

120 Day-(Day+3) DIV 3 ! Day 

130 Yaar*100*Yaar+ Julian 

lAO IF Month<10 THEN 

130 Month*Month+3 

160 ELSE 

170 Month“Month+3 

180 Yaar-Year+1 

190 END IF 

200 Year$-VAL$(Year) 

210 IF Month<10 THEN 

220 Months-” 0 " AVALS ( Month ) 

230 ELSE 

2 AO MonthS-VALS (Month) 

230 END IF 

260 IF Day<10 THEN 

270 DayS-"0”&VALS(Day) 

280 ELSE 

290 DayS-VALS(Day) 

300 END IP 

310 D$-Y«arS[3, A]fiMonthS&DayS 

320 RETURN DS 

330 FNEND 



Figure D16 TPL Subprogram: FNDate$ 
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10 ! Program: FILE^XFER 

20 tDescription: transfers selected files to a selected directory, and 
30 t PURGES the same file if desired. 

AO ON ERROR GOTO Error 

50 CLEAR SCREEN 

60 DIM DirectorylSt35] 

70 DIM Directory2S(35J 

80 PRINT "This program transfers files from an existing specified INITIAL directory" 

90 PRINT "to a NEW directory." 

100 INPUT "Initial Directory? (ex. \ * /WORK/ *)" .Directory IS 
110 INPUT "New directory? (ex. */ WWORK/ *)" .Direct ory2$ 

120 CLEAR SCREEN 

130 CAT DirectorylS 

lAO Transfer: ! 

150 INPUT "File for transfer (CAT to print directory. QUIT to Exit)",FileS 

160 IF File$-"QUIT" THEN Finish 

170 IF File$-"CAT” THEN 

180 CLEAR SCREEN 

190 CAT DirectorylS 

200 GOTO Transfer 

210 END IF 

220 Copy: ! 

230 COPY DirectorylS&FileS TO Directory2S&FileS 

2A0 PRINT "File ";Directoryl$&FileS; " transferred to " ;Directory2$&FileS 

250 INPUT "Purge this file from current directory? (Yes-1 No-0)", Del 

260 IF Del-1 THEN 

270 PURGE DirectorylS&FileS 

280 END IF 

290 GOTO Transfer 

300 Error: f 

310 IF ERRN-5A THEN 

320 PRINT "File: ";Directory2S&FileS; " already exist." 

330 INPUT "Do you want to purge? <0-No 1-Yes )",File_purge " 

3A0 IF Filejmrge-l THEN 

350 PURGE Directory2S&FileS 

360 PRINT "File: " ; Dlrectory2S&FileS j " purged," 

370 GOTO Copy 

380 ELSE 

390 PRINT "File: " ; Directory2S&FileS ; " NOT purged." 

A 00 END IF 

A 10 END IF 

A20 (SOTO Transfer 

A30 Finish: ! 

AAO CLEAR SCREEN 

A50 END 



Figure D17 TPL Program: FILE_XFER 
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10 tPrograni: MAIN_MENU returns working window to the Main Menu 
20 CONTROL CRT, 5; 4 ! Reset screen color to Green. 
30 MASS STORAGE IS "/WORKSTATIONS'* 

40 LOAD "AUTOST”,10 
50 END 



Figure D18 TPL Program: MAIN_MENU 
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